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EXECUTIVE  SUMMARY 


A.  OBJECTIVE 

The  objective  of  this  report  is  to  describe  the  software  and  hardware  of 
the  POST-DAM  System,  developed  by  Applied  Research  Associates,  Inc.,  for  airbase 
facility  postattack  damage  assessment.  This  report  contains  descriptions  of 
prototype  software  and  hardware,  and  recommendations  for  full-scale  development 
of  both  software  and  hardware. 

B.  BACKGROUND 

In  a  postattack  environment,  field  information  on  mission-critical  facility 
damage  is  collected  and  analyzed  to  determine  structural  integrity  and  usability. 
From  this  analysis,  a  repair  schedule  is  developed.  This  is  a  time-consuming 
process  when  done  without  the  aid  of  a  computerized  system.  Consequently,  the 
POST-DAM  System  was  developed  to  determine  repair  strategies  with  an  expert 
system,  keep  track  of  materials  and  equipment  with  a  relational  database 
management  system,  and  schedule  repairs  based  on  manpower  and  equipment 
availability  with  a  project  management  system. 

C.  SCOPE 

This  technical  report  consists  of  nine  volumes.  Volume  I  describes 
software  and  hardware  used  with  the  prototype  POST-DAM  System,  and  recommends 
software  and  hardware  for  full-scale  development.  Volumes  II  through  VIII  are 
software  user's  manuals,  which  describe  how  to  install  and  use  the  prototype 
software  with  the  POST-DAM  System.  Volume  IX  is  a  field  manual  that  contains 
diagrams  of  structures  that  are  used  with  the  POST-DAM  system  to  locate  damaged 
elements. 

D.  EVALUATION  METHODOLOGY 

The  prototype  POST-DAM  System  was  developed  using  commercial,  off-the-shelf 
(COTS)  software  and  hardware.  The  system  was  constructed  by  integrating  the 
software  and  hardware  in  such  a  way  that  a  remote  computer  in  the  field  can 
communicate  with  a  host  computer  in  the  Base  Civil  Engineering  (BCE)  Damage 
Control  Center  (DCC).  The  POST-DAM  system  determines  repair  strategies,  keeps 
track  of  materials  and  equipment,  and  schedules  repairs  based  on  manpower  and 
equipment  availability.  This  prototype  system  has  been  evaluated  in-depth,  and 
subsequent  recommendations  are  made  herein  about  software  and  hardware  that 
should  be  used  for  full-scale  development. 

E.  CONCLUSIONS 

The  prototype  POST-DAM  System  is  functional,  but  has  limitations  with 
respect  to  both  hardware  and  software.  The  following  problems  were  encountered: 

1.  The  prototype  remote  computer  is  not  portable,  and  cannot  be  used  in 
the  field.  No  satisfactory,  hand-held  remote  terminal  was  available  for  this 
project. 


2.  The  expert  system  cannot  hold  all  the  information  required  for  full- 
scale  development,  because  it  cannot  use  extended  memory. 

3.  Both  the  relational  database  management  system  and  project  management 
system  require  more  human  Interaction  than  desired. 

4.  The  communication  system  software  is  not  compatible  with  the 
Survivable  Base  Recovery  After  Attack  Communication  System  (SBCS)  being  developed 
for  ESD  by  Sumaria  Systems,  Inc.,  with  which  the  POST-DAM  System  is  required  to 
interface. 

F.  RECOMMENDATIONS 

For  full-scale  development,  the  following  features  should  be  incorporated 
in  the  POST-DAM  System. 

1.  Replace  the  prototype  remote  computer  with  a  hand-held  terminal  unit 
having  at  least  2  Mb  of  random  access  memory,  and  which  can  run  applications 
requiring  640  Kb  of  base  memory. 

2.  Replace  the  prototype  host  computer  with  a  system  having  at  least 
4  Mb  of  random  access  memory,  IEEE  802.3  LAN  ports,  and  able  to  support  multi¬ 
tasking  operations. 

3.  Replace  the  CLIPS  expert  system  shell  with  an  expert  system  shell 
capable  of  supporting  applications  at  least  twice  as  large  as  those  developed  for 
the  prototype  system. 

4.  Set  the  host  computer  up  to  interface  with  the  IEEE  802.3  Ethernet 
local  area  network  (LAN)  used  by  SBCS. 

5.  Construct  a  single  computer  program  to  replace  the  relational 
database  management  system  and  the  project  management  system,  to  minimize  the 
required  amount  of  human  intervention.  This  system  should  be  developed  by 
personnel  with  a  strong  background  in  computer  science. 
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SECTION  1 


INTRODUCTION 


1.1  OBJECTIVE 

The  objective  of  this  software  user's  manual  (SUM)  is  to  document  system 
and  user  requirements  for  proper  operation  of  the  POST-DAM  Expert  System  (PDES) 
developed  in  compliance  with  References  2.1.1,  2.1.2,  and  2.1.3.  System 
requirements  are  discussed  in  Section  3.1  of  the  manual,  and  involve  both 
hardware  and  software  requirements.  User  requirements  are  discussed  in 
Sections  3.2  and  3.3,  and  document  the  procedures  for  installing  and  operating 
PDES. 


1.2  BACKGROUND 

PDES  was  constructed  using  the  C- based  expert  system  language  CLIPS 
(C  Language  Integrated  Production  System)  developed  jointly  by  NASA  and  the  USAF 
(Reference  2.3.1).  PDES  was  delivered  t'-  RDCS  in  source  code  form,  along  with 
its  CLIPS  interpreter  to  permit  compiling  the  program  at  execution  time. 
Creating  a  DOS  runtime  version  of  POES  was  not  practical,  since  runtime  versions 
do  not  allow  the  use  of  many  CLIPS  environmental  commands  and  embedded  functions. 
The  expedient  repair  strategies  and  required  resource  equations  utilized  by  PDES 
were  developed  separately  (References  2.1.4  and  2.1.5). 

1.3  APPROACH 

POES  is  one  component  of  the  computer-based  facility  postattack  damage 
assessment  system,  POST-DAM.  This  relationship  is  shown  schematically  in 
Figure  1.1.  PDES  is  a  knowledge-based  system  which  utilizes  an  inference  engine 
to  determine  expedient  repair  strategies  for  conventional  weapon  damage  to 
mission-critical  airbase  facilities.  The  system  operates  by  asking  the  user 
questions  about  a  damaged  facility.  From  the  answers,  the  expert  system  selects 
the  most  appropriate  expedient  repair  strategy  from  its  knowledge  base,  compiled 
beforehand  by  base  engineer  personnel.  This  information  is  then  communicated  to 
the  POST-DAM  System's  host  computer  for  further  evaluation. 

In  operation,  PDES  is  a  highly  interactive,  multilevel,  menu-driven  expert 
system.  It  enables  the  user,  in  a  postattack  situation,  to  assess  structural 
damage  of  any  predetermined  mission-critical  facility  on  a  particular  airbase. 
Once  a  mission-critical  facility  has  been  selected,  PDES  can  further  distinguish 
between  mission-critical  and  non-mission-critical  structural  elements.  These  two 
PDES  capabilities  are  possible  because  the  system's  inference  engine  uses  both 
static  and  dynamic  knowledge  bases.  The  static  knowledge  base  is  used  in  the 
phase-control  firing  of  PDES  rules  and  in  setting  system  defaults.  The  data 
field  in  this  knowledge  base  is  used  to  initialize  PDES.  The  dynamic  knowledge 
base  contains  element-specific  data  on  various  mission-critical  facilities.  This 
knowledge  base  allows  PDES  to  be  tailored  to  any  number  of  airbases  and 
mission-critical  facilities,  by  inserting  airbase-specific  data  files  into  the 
expert  system's  knowledge  base.  Figure  1.2  shows  how  PDES  uses  the  concept  of 
a  static  and  a  dynamic  knowledge  base,  along  with  its  Rules  Base  to  arrive  at  its 
expert  advice. 
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Figure  1.1.  POST-DAM  System  Schematic 


Figure  1.2.  POST-DAM  Expert  System  Schematic 


After  the  user  enters  a  valid  mission-critical  element  for  assessment,  the 
system  asks  for  a  description  of  the  element's  damage  mode.  For  a  given  damage 
mode,  PDFS  selects  an  expedient  repair  strategy  from  an  array  programmed  wUhin 
the  system's  rules  base.  The  system  then  generates  material,  equipment,  and 
manpower  requirements  for  that  strategy,  based  upon  a  combination  of  geometric 
properties  obtained  from  the  damaged  element's  knowledge  base  and  user-entered 
damage  dimensions.  These  resource  requirements  are  stored  in  PDFS  data  files, 
for  transfer  to  the  POST-DAM  System  host  computer.  The  POES  data  files  are 
post-processed  by  the  POST-DAM  Relational  Data  Base  Management  System  (RDBMS), 
the  Harvard  Project  Manager  (HPM),  and  the  TED  1.1  Editor.  The  RDBMS,  HPM,  and 
TED  Editor  are  discussed  in  References  2.2.3,  2.2.4,  and  2.2.6,  respectively. 

The  development  of  PDES  involved  creating  a  program  which  utilizes  the 
phase-control  firing  of  CLIPS  rules  within  three  logic  levels.  These  logic 
levels  can  be  understood  most  clearly  when  one  thinks  of  the  system  as  being 
analogous  to  three  nested  shells.  Figure  1.3  represents  this  concept  by  showing 
three  nested  shells  labeled  POES  Environmental  Level,  Facility  Specific  Level, 
and  Element  Specific  Level.  These  three  shells  represent  the  logical  structure 
of  PDES.  A  high-level  representation  of  this  PDES  logic  is  shown  in  the  Menu 
System  Flow  Chart  presented  in  Figure  1.4.  Source  code  for  the  PDES  expert 
system  and  supporting  batch  jobs  is  given  in  Appendices  A  through  G. 

Upon  activating  PDES,  the  user  enters  the  outermost  or  environmental  level. 
From  this  level,  the  user  can  modify  any  PDES  system  setting.  Also  within  this 
level  PDES  handles  all  file  manipulation  and  communications.  Within  the  second 
or  facility  specific  level,  the  user  tells  PDES  the  facility  number  of  the 
mission-critical  structure  to  be  assessed,  and  its  general  overall  condition. 
The  innermost  or  facility  specific  level  is  the  largest  of  the  three  logic 
levels.  Within  this. level  the  user  assesses  the  damage  to  each  damaged 
structural  element  within  a  damaged  mission-critical  facility.  Inputs  such  as 
damage  mode  and  damage  dimensions  are  given  by  the  user  for  each  structural 
element  being  assessed.  PDES  processes  the  element-specific  damage  input,  then 
selects  the  most  appropriate  expedient  repair  strategy  within  its  knowledge  base. 
Also  within  this  level,  PDES  calculates  the  resources  necessary  to  perform  each 
selected  expedient  repair  strategy.  Instructions  for  descending  and  ascending 
through  eacn  logic  level  are  found  in  Section  3.3. 
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Figure  1.3.  POST-DAM  Expert  System  Nested  Logic  Level 


SECTION  2 


REFERENCED  DOCUMENTS 


2.1  SETA  CONTRACT  SUBTASKS 

2.1.1  Postattack  Damage  Assessment  of  Facilities.  Subtask  2.02,  Air  Force 
Engineering  and  Services  Center,  SETA  Contract  F08635-88-C-0067,  December  87. 

2.1.2  Postattack  Damage  Assessment  of  Facilities.  Subtask  2.02.1,  Air  Force 
Engineering  and  Services  Center,  SETA  Contract  F08635-88-C-0067,  October  88. 

2.1.3  Postattack  Damage  Assessment  of  Facilities.  Subtask  2.02.2,  Air  Force 
Engineering  and  Services  Center,  SETA  Contract  F08635-88-C-0067,  February  89. 

2.1.4  Expedient  Repair  of  Structural  Facilities.  Subtask  2.01,  Air  Force 
Engineering  and  Services  Center,  SETA  Contract  F08635-88-C-0067,  December  87. 

2.1.5  Expedient  Repair  of  Structural  Facilities.  Subtask  2.01.1,  Air  Force 
Engineering  and  Services  Center,  SETA  Contract  F08635-88-C-0067,  August  1989. 

2.2  POST -DAM  SYSTEM  USER'S  MANUALS 

2.2.1  The  POST-DAM  System,  Volume  1,  Introduction  to  the  POST-DAM  System. 
Applied  Research  Associates,  Inc.,  Report  to  AFESC/RDCS,  March  91. 

2.2.2  The  POST-DAM  System,  Volume  3,  Software  User's  Manual  for  DESQview  386. 
Applied  Research  Associates,  Inc.,  Report  to  AFESC/RDCS,  December  90. 

2.2.3  The  POST-DAM  System,  Volume  4,  Software  User's  Manual  for  the  Relational 
Data  Base  Management  System  (RDBMS).  Applied  Research  Associates,  Inc.,  Report 
to  AFESC/RDCS,  December  90. 

2.2.4  The  POST-DAM  System,  Volume  5,  Software  User's  Manual  for  the  Harvard 
Pro.iect  Manager  (HPMl.  Applied  Research  Associates,  Inc.,  Report  to  AFESC/RDCS, 
December  90. 

2.2.5  The  POST-DAM  System,  Volume  6,  Software  User's  Manual  for  Crosstalk  Mk.4 
on  the  Host  Computer.  Applied  Research  Associates,  Inc.,  Report  to  AFESC/RDCS, 
December  90. 

2.2.6  The  POST-DAM  System,  Volume  7,  Software  User's  Manual  for  the  TED  1.1 
Editor.  Applied  Research  Associates,  Inc.,  Report  to  AFESC/RDCS,  December  90. 

2.2.7  The  POST-DAM  System,  Volume  8,  Software  User's  Manual  for  Crosstalk  Mk.4 
on  the  Remote  Computer.  Applied  Research  Associates,  Inc.,  Report  to  AFESC/RDCS, 
March  91. 

2.2.8  The  POST-DAM  System,  Volume  9,  Field  Manual  of  Mission-Critical 
Facilities for  Use with  the  Prototype  POST-DAM  System.  Applied  Research 
Associates,  Inc.,  Report  to  AFESC/RDCS,  March  91. 
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2.3  HARDWARE  AND  SOFTWARE  USER'S  MANUALS 

2.3.1  CLIPS  Reference  Manual.  Version  4.3,  Artificial  Intelligence  Section 
Lyndon  B.  Johnson  Space  Center,  NASA,  Document  Number  JSC -22948,  July  1989. 
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SECTION  3 


INSTRUCTION  FOR  USE 


3.1  SYSTEM  CONFIGURATION 

The  POST-DAM  Expert  System  operates  on  a  dedicated  remote  terminal,  due  to 
its  intended  use  and  the  requirements  of  the  contract  under  which  it  was 
developed.  All  software  development  and  references  to  hardware  and  software 
descriptions  assume  PDES  operates  in  this  manner.  To  allow  PDES  to  operate  on 
a  non-dedicated  machine,  additional  software  has  been  developed  and  included  on 
the  PDES  System  Diskette.  Notation  for  this  software,  and  documentation  on  its 
use,  are  presented  in  this  manual  at  appropriate  locations. 

3.1.1  Hardware  Requ i remen ts 

PDES  operates  on  any  286  or  386  IBM  compatible  microcomputer  running  MS-DOS 
(2.11  -  3.30)  with  640K  random  access  memory  (RAM).  Of  the  640K  RAM,  a  minimum 
of  570K.must  be  accessible  (free)  to  load  and  execute  PDES.  The  computer  system 
must  also  have  a  color  or  monochromatic  monitor,  a  minimum  of  2.0  megabytes  of 
hard  disk  storage,  and  a  5.25-inch  floppy  disk  drive.  It  must  also  have  a  2400- 
baud,  fully  Hayes -compatible  modem  to  transfer  output  files  to  the  host  computer. 

The  PDES  version  provided  has  been  tested  on  both  a  286  IW  compatible  and 
a  Wang  386  computer.  The  version  operated  properly  when  tested  using  MS-DOS 
3.30,  but  failed  to  operate  under  MS-DOS  4.01.  The  problem  encountered  using  DOS 
4.01  was  that  too  much  of  the  640K  RAM  was  used  by  the  operating  system  and  its 
supporting  files.  This  caused  the  expert  system  to  experience  memory  allocation 
errors  and  fail  to  properly  display  the  PDES  system  commands.  If  PDES 
experiences  these  types  of  errors  under  DOS  3.30  or  lower,  run  the  program  PD_SYS 
discussed  in  Section  3. 2. 3. 2. 

3.1.2  Software  Requirements 

PDES  operates  using  MS-DOS  (2.11  -  3.30),  plus  files  provided  on  the  PDES 
System  Diskette,  and  CROSSTALK  Mk.4.  The  user  is  assumed  to  have  a  working 
knowledge  of  MS  DOS,  and  should  consult  any  of  the  various  MS-DOS  reference 
manuals  if  questions  on  the  subject  occur.  CROSSTALK  Mk.4  was  chosen  to 
communicate  between  PDES  and  the  POST-DAM  System  operating  on  the  host  computer. 
Any  communication  package  compatible  with  the  software  package  running  on  the 
host  computer  could  be  substituted  for  CROSSTALK  Mk,4,  but  minor  modifications 
to  the  DOS  batch  job  PD. BAT  (see  Section  3.3)  would  then  be  necessary.  A 
discussion  of  the  installation  and  use  of  CROSSTALK  Mk.4  is  provided  in 
Reference  2.2.7. 

The  PDES  System  Diskette  contains  a  number  of  files  necessary  to  operate 
PDES.  These  files,  differentiated  by  extension  type,  are  listed  below. 
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.EXE  executable  fi1e(s): 

CLIPS.EXE  CLIPS  Version  4.20  interpreter.  Contains  the  compiled 

version  of  the  basic  CLIPS  system  and  its  extended  math 
functions. 


*  .CLP  CLIPS  Language  source  code  fi1e(s): 

PD. CLP  Expert  System  source  code.  Contains  the  ARA-deve1oped 

POST-DAM  Expert  System. 

*  .BAT  DOS  batch  fi1e(s): 


PD. BAT 
PD_SYS.BAT 
PD_NOSYS.BAT 
PD_NSTAL.BAT 


Controls  operation  of  POST-DAM  Expert  System. 
Sets  up  PDES  environment. 

Restores  original  (non-PDES)  environment. 
Installs  the  PDES  System. 


.RUN  slave  file(s): 


PD. RUN  Called  by  PD.BAT. 


.PD  text  file(s)  called  by  PD. CLP: 


PDES_ON.PD 

LOGON. PD 

LOGOFF. PD 

SETUP  l.PD 

SETUP j.  PD 

HELP  l.PD 

MENU“1.PD 

MENUJ.PD 

MENUJH.PD 

MENUJ.PD 

MENU_4.PD 

MENUJ.PD 

MENUJH.PD 

MENUJB.PD 

MENUJC.PD 

MENUJD.PD 

MENU  6EU.PD 

MENU JF.  PD 

MENUJIW.PD 

MENU  6M.PD 

MENU“6R.PD 

MENUJ.PD 

COMM  l.PD 

C0MM~2.PD 

CONFIG.  PD 

AUTOEXEC. PD 


PDES  compilation  screen. 

PDES  Log-on  banner. 

PDES  Log-off  banner. 

Setup  Screen  Number  1. 

Setup  Screen  Number  2. 

Help  Screen  Number  1. 

Menu  Screen  Number  1. 

Menu  Screen  Number  2. 

Menu  Screen  Number  2  (with  help  option). 

Menu  Screen  Number  3. 

Menu  Screen  Number  4. 

Menu  Screen  Number  5. 

Menu  Screen  Number  5  (with  help  option). 

Menu  Screen  Number  6  (beam  elements). 

Menu  Screen  Number  6  (column  elements). 

Menu  Screen  Number  6  (door  elements). 

Menu  Screen  Number  6  (exterior  wall  elements). 
Menu  Screen  Number  6  (floor  elements). 

Menu  Screen  Number  6  (interior  wall  elements). 
Menu  Screen  Number  6  (miscellaneous  elements). 
Menu  Screen  Number  6  (roof  elements). 

Menu  Screen  Number  7. 

PDES  Communication  Menu  #1. 

PDES  Communication  Menu  #2. 

PDES  CONFIG.SYS  file. 

PDES  AUTOEXEC.BAT  file. 
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.DAT  Data  f11e(s)  loaded  into  the  POES  Dynamic  Knowledge  Base: 


BITBURG.DAT 

BLDG138.DAT 

BLDG464.DAT 

BLDG4058.DAT 

BLDG9999.0AT 

BLDG1.DAT 

BLDG2.DAT 

BLDG3.DAT 

BLDG4.DAT 

BLDG5.DAT 


List  of  mission-critical  facilities  at  Bitburg  AB, 
Germany. 

Structural  data  base  on  Bitburg  mission-critical 

Facility  138. 

Structural  data  base  on  Bitburg  mission-critical 

Facility  464. 

Structural  data  base  on  Bitburg  mission-critical 

Facility  4058. 

Structural  data  base  on  Tyndall  NATO  structure  at  the 


SKY-10  testing  facility, 
mission-critical  structure 
testing  purposes. 

Structural  data  base 

mission-critical  facility, 
testing  purposes. 

Structural  data  base 

mission-critical  facility, 
testing  purposes. 

Structural  data  base 

mission-critical  facility, 
testing  purposes. 

Structural  data  base 

mission-critical  facility, 
testing  purposes. 

Structural  data  base 

mission-critical  facility, 
testing  purposes. 


Structure  assumed  to  be  a 
at  Bitburg  AB  for  PDFS 

on  imaginary  Bitburg 
Data  file  used  for  PDFS 

on  imaginary  Bitburg 
Data  file  used  for  PDFS 

on  imaginary  Bitburg 
Data  file  used  for  PDFS 

on  imaginary  Bitburg 
Data  file  used  for  PDFS 

on  imaginary  Bitburg 
Data  file  used  for  PDFS 


3.2  GETTING  STARTED 

This  section  explains  the  procedures  for  installing  the  PDES  software,  and 
for  setting  up  or  changing  the  computer  operating  environment.  Several  MS-DOS 
commands  and  files  are  mentioned  in  this  section  (e.g.,  PATH,  CONFIG.SYS, 
AUTOEXEC.BAT).  If  the  user  is  unfamiliar  with  any  of  the  procedures  discussed, 
consult  an  MS-DOS  manual  for  instructions.  Execute  the  following  steps  to  get 
PDES  up  and  running: 

1.  Back  up  the  system  diskette  (see  Section  3.2.1). 

2.  Check  the  system  diskette  contents  to  verify  that  all  PDES  software 
files  are  present  (see  Section  3.1.2). 

3.  Verify  the  computer's  hardware  configuration  (see  Section  3.1.1). 

4.  Run  the  PD  NSTAL  program  to  install  the  PDES  software  (see 
Section  2.2.1). 

5.  Set  up  the  PDES  Environment  (see  Section  3.2.3). 
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3.2.1  Backing  Up  the  PDES  System  Diskette 

Before  installing  PDES  on  your  computer,  make  a  working  copy  of  the  system 
diskette,  using  the  DISKCOPY  utility  supplied  with  MS-DOS.  Save  the  original 
system  diskette  for  backup,  and  use  the  working  copy  where  the  system  diskette 
is  referenced. 

3.2.2  Installing  PDES  on  the  Computer  System's  Hard  Disk 

To  install  PDES  onto  the  computer's  hard  disk,  it  is  necessary  to  run  the 
file  PD_NSTAL.BAT.  This  file  is  an  MS-DOS  batch  job,  which  creates  all 
directories  necessary  for  PDES,  and  copies  the  PDES  software  into  appropriate 
directories.  NARNING!  The  file  PD_NSTAL.BAT  assumes  your  cnnputer  presently 
does  not  have  a  directory  named  c:\postdam.  If  such  a  directory  presently 
exists,  PD_NSTAL.BAT  will  overwrite  any  existing  files  that  have  the  same 
filename  as  a  PDES  software  filename.  If  the  directory  name  c:\postdam  does 
already  exist  and  Is  Impossible  to  change,  it  will  be  necessary  to  modify  all 
references  to  c:\postdam  in  the  POES  files  PD  NSTAL.BAT,  PD. BAT,  PD. CLP,  and 
AUTOEXEC. PD. 

To  run  the  PD_NSTAL.BAT  file,  the  user  will  need  to  execute  the  following 

steps: 

1.  Insert  the  PDES  system  diskette  Into  the  computer's  A  drive. 

2.  Switch  to  drive  A  by  entering,  at  the  current  prompt,  the  command 

A: 

3.  Upon  entering  the  above  DOS  command,  the  prompt  A:\  >  should  appear. 

At  this  prompt  the  user  should  enter  the  command 

PD_NSTAL 


Installation  of  the  PDES  system  proceeds  under  the  control  of  the  PD_NSTAL 
program.  If,  during  execution,  the  process  needs  to  be  terminated,  PD_NSTAL  can 
be  exited  as  follows: 

1.  Hit  the  following  two  keys  simultaneously 
[CTRL]  [BREAK] 

2.  DOS  will  respond  with  the  query 
Terminate  batch  job  (Y/N)7 


3.  To  this  query  the  user  should  enter  option 
Y 
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Upon  successful  completion  of  the  program  PD  NSTAL,  all  PDES  software  files 
will  have  been  transferred  from  the  PDES  system  diskette  into  their  appropriate 
directories  on  the  computer's  C:  drive.  The  directory  tree  for  drive  C:  should 
now  have  branches  as  shown  in  Figure  3.1.  PD_NSTAL  will  have  returned  control 
to  DOS,  and  the  prompt 

C:\P0STDAM  > 

should  appear.  If  this  prompt  is  not  displayed,  it  may  be  that  the  DOS  PROMPT 
command  has  never  been  executed,  or  is  configured  to  yield  some  other  prompt. 
The  user  may  issue  the  DOS  command 

dir 

at  the  current  prompt,  to  verify  that  C:\P0STDAM  is  the  current  directory. 

3.2.3  Setting  Up  the  PDES  CONFIG.SYS  and  AUTOEXEC.BAT 

POES  was  developed  assuming  it  would  run  alone  on  a  dedicated  personal 
computer.  It  is  understood,  though,  that  there  may  be  instances  where  this 
assumption  is  not  valid.  Therefore  the  following  two  sections  provide 
instruction  on  the  procedures  for  installing  CONFIG.SYS  and  AUTOEXEC.BAT  on 
systems  that  are  solely  dedicated  to  PDES,  and  on  systems  where  other  software 
packages  exist. 

3.2.3. 1  Computer  Systems  Dedicated  to  PDES 

If  the  computer  system  on  which  PDES  has  been  installed  is  dedicated  solely 
for  PDES's  use,  execute  the  following  steps  to  load  the  PDES  CONFIG.SYS  and 
AUTOEXEC.BAT  files.  These  steps  need  only  be  performed  the  first  time  PDES  is 
installed. 

1.  Go  to  the  computer  system's  root  directory  by  entering,  at  the 
current  prompt,  the  DOS  command 

CD\ 

2.  Copy  the  PDES  file  CONFIG. PD  into  the  root  directory,  and  change  its 
name  to  CONFIG.SYS  by  entering  the  DOS  command 

COPY  C:\PO_SYSTM\CONFIG.PD  CONFIG.SYS 


NOTE:  ANY  DEVICE  NEEDED  TO  OPERATE  A  PARTICULAR  MACHINE  MUST  BE 
ADDED  TO  THE  FILE  CONFIG. PD. 


3.  Copy  the  PDES  file  AUTOEXEC. PD  into  the  root  directory,  and  change 
its  name  to  AUTOEXEC.BAT  by  entering  the  DOS  command 

COPY  C:\PDJYSTN\AUTOEXEC.PD  AUTOEXEC.BAT 
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Figure  3.1 
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POST-OAH  Expert  System  Installation  Directory  Tree. 


14 


4. 


After  the  new  CONFIG.SYS  and  AUTOEXEC.BAT  files  have  been  added  to 
the  system's  root  directory,  reboot  the  system  so  the  new  settings 
will  take  effect.  To  reboot  the  system  hit  the 

ICTRL]  [ALT]  [DEL] 

keys  simultaneously. 


3. 2. 3. 2  Computer  Systems  Not  Dedicated  to  PDES 

Two  PDES  files  were  created  to  assist  in  installing  PDES  on  computer 
systems  which  are  not  dedicated  to  running  only  PDES.  These  two  files  are  named 
PD_SYS.BAT  and  PD_NOSYS.BAT,  and  are  loaded  in  the  directory  C:\PD_SYSTM.  The 
purposes  of  these  two  files  are  as  follows: 

PD_SYS.BAT  Writes  the  PDES  files  CONFIG. PO  and  AUTOEXEC. PD  into  the 

root  directory  under  the  filenames  CONFIG.SYS  and 
AUTOEXEC.BAT.  The  original  files  CONFIG.SYS  and 
AUTOEXEC.BAT  are  temporarily  saved  under  the  filenames 
CONFIG. TMP  and  AUTOEXEC. TMP,  in  the  directory 
C:\PD  SYSTM.  **  WARNING  **  ANY  DEVICE  NEEDED  TO 
operate  a  PARTICULAR  MACHINE  MUST  BE  ADDED  TO  CONFIG. PD. 

PD_NOSYS.BAT  Erases  the  PDES  CONFIG.SYS  and  AUTOEXEC.BAT  files,  and 
returns  the  original  (non-PDES)  CONFIG.SYS  and 
AUTOEXEC.BAT  files  to  the  root  directory. 

To  toggle  back  and  forth  between  the  PDES  environment  and  the  environment 
used  for  the  other  software  packages  installed  on  the  personal  computer,  the 
procedure  described  below  must  be  followed  before  each  PDES  run  sequence. 

1.  Change  from  the  current  directory  to  the  directory  C:\PD_SYSTM  by 
entering  the  DOS  connand 

CD  C:\PD_SYSTH 

2.  Run  the  PDES  file  PD_SYS.BAT  by  entering  the  command 
PD_SYS 

3.  Reboot  the  computer  system  by  simultaneously  hitting  the  keys 
[CTRL]  [ALT]  [DEL] 

Upon  completion  of  rebooting,  the  computer  system  should  be  in  the  PDES 
environmental  mode. 

Before  the  computer  system  can  operate  under  the  original  (non-PDES) 
environment,  the  PDES  file  PD  N0SYS.BAT  must  be  run.  Therefore,  always  execute 
the  following  procedure  when  leaving  the  PDES  environment. 
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1.  Change  from  the  current  directory  to  the  directory  C:\PD_SYSTM  by 
entering  the  DOS  convnand 

CO  C:\PD_SYSTM 

2.  Run  the  POES  file  PD_NOSYS.BAT  by  entering  the  command 
PD_NOSYS 

3.  Reboot  the  computer  system  by  simultaneously  hitting  the  keys 
[CTRL]  [ALT]  [DEL] 

Upon  completion  of  rebooting,  the  computer  system  should  be  in  the  original  (non- 
PDES)  environmental  mode. 


3.3  RUNNING  POES 

The  POST-OAM  Expert  System  consists  of  several  text,  ddta,  source  code,  and 
executable  files  (see  Section  3.1.2).  This  is  necessary  for  the  system  to  be 
useful,  user  friendly,  and  memory-sensitive.  A  POES  batch  job  was  developed  to 
handle  the  management,  compilation,  and  communications  involved  with  numerous 
files.  The  procedure  for  running  this  batch  job,  is  discussed  in  the  following 
three  sections,  along  with  procedures  for  using  the  POES  menu  systems  and  for 
communicating  with  the  host  computer. 

3.3.1  Starting  PDES 

To  simplify  the  task  of  running  PDES,  a  DOS  batch  job  was  developed 
(reference  Appendix  B)  to  load  and  run  all  necessary  files.  Therefore,  arter 
installing  PDES  and  the  PDES  system  environment  on  the  hard  disk  (see  Section 

3.2.2  and  Section  3.2.3,  respectively),  the  user  may  run  PDES  by  executing  the 
following  steps: 

1.  Change  from  the  current  directory  to  the  directory  C:\POSTDAM,  by 
entering,  at  the  current  prompt,  the  DOS  command 

CD  C:\P0STDAN 

2.  Run  the  PDES  batch  job  PD. BAT  by  entering,  at  the  prompt,  the  command 

PD 

Execution  of  the  PD. BAT  file  gathers  all  necessary  PDES  text  and  data 
files.  During  this  time  the  user  will  observe  a  series  of  screen  clears  and  DOS 
command  echoes  on  the  computer  system's  display  terminal.  Also,  executing  PO.BAT 
causes  the  CLIPS  source  code  file  PD.CLP  to  be  loaded  and  run  by  the  CLIPS 
interpreter  CLIPS.EXE.  During  compilation  of  PD.CLP  by  the  interpreter,  the  user 
will  see  on  the  display  terminal  the  CLIPS  Version  number,  followed  on  the  next 
line  by  a  and  a  series  similar  to  that  shown  in  Figure  3.2.  These 
symbols  indicate  that  PD.CLP  is  compiling  normally.  Once  PD.CLP  has  compiled, 
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Figure  3.2.  POST-DAM  Expert  System  Compilation  Screen. 


control  of  the  PDES  system  changes  from  the  batch  job  PD. BAT  to  the  compiled 
expert  system  program  PD. CLP.  Section  3.3.2  discusses  the  interaction  between 
the  user  and  PDES  during  the  interactive  session. 

3.3.2  Using  the  PDES  Menu  System 

PDES's  inference  engine,  comprised  of  its  intricate  rules  and  knowledge 
bases,  results  in  an  expert  system  with  a  complex  decision  tree  (Figure  1.4). 
A  highly  interactive,  multilevel,  menu-driven  system  guides  the  user  through 
PDES's  extensive  decision-making  process.  This  system,  with  its  error-detection 
routines,  guides  the  user  from  menu  to  menu  until  PDES  has  enough  information  to 
deliver  "Expert  Advice"  to  the  POST-DAM  System  residing  on  the  host  computer 
(Figure  1.1). 

To  demonstrate  the  complexities  of  the  PDES  menu  systems,  a  graphical 
representation  of  the  connectivity  between  menus  in  one  possible  PDES  menu  system 
is  given  in  Figure  3.3.  This  menu  system  shows  the  path  taken  to  assess  a 
mission-critical  exterior  wall,  damaged  by  excessive  cracking.  An  assessment  of 
a  different  category  of  element  and/or  damage  would  involve  slightly  different 
menus  and  menu  connectivity.  Also,  modifying  the  Optional  Utility  Environment 
(see  Section  3. 3. 2. 1.2)  may  cause  variation  in  menus  and/or  menu  format.  All 
menus  presented  in  Figure  3.3,  and  throughout  this  manual,  can  be  obtained  with 
the  Optional  Utility  Environment  in  its  system  default  configuration. 
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START 


Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity. 


Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity  (Continued). 


Connect 


Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity  (Continued). 


Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity  (Continued) 


Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity  (Continued) 


Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity  (Continued). 
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Figure  3.3.  POST-DAM  Expert  System  Menu  System  Connectivity  (Concluded). 


As  shown  in  Figure  3.3,  there  are  too  many  paths  the  user  might  take  within 
a  PDFS  session  to  expand  upon  them  all  in  this  manual.  Therefore,  this  section 
documents  the  three  POES  logic  {decision  making)  levels  (Figure  1.3),  and 
discusses  the  various  POES  menus  within  each  level.  The  user  should  consult 
Figure  3.3  while  reading  the  following  sections,  to  obtain  an  overall 
understanding  of  the  POES  menu  system  and  its  underlying  logic. 

3.3.2. 1  Environmental  Level 

The  first  level  the  user  enters  upon  executing  POES  is  the  environmental 
level.  Within  this  level  the  POES  system  handles  all  external  file  maintenance, 
plus  communication  with  the  host  computer.  The  user  can  also  modify  the  POES 
system  defaults  while  within  this  level.  The  following  four  sections  discuss  the 
various  menus  available  within  the  POES  Environmental  Level. 

3. 3. 2. 1.1  POES  Main  Menu 

To  enter  the  POES  environmental  level  (Figure  1.3),  the  user  must  first  run 
the  POES  batch  job  PO.BAT  discussed  in  Section  3.3.1.  Upon  completing  the 
procedure  discussed  in  Section  3.3.1,  the  user  will  see  on  the  display  screen  the 
POES  logon  banner  and  main  menu  shown  in  Figure  3.4.  From  the  POES  main  menu, 
the  user  may  choose  to  either  continue  normal  POES  operation,  terminate  the  POES 
session,  or  modify  the  POES  utility  configuration.  Discussions  of  each  main  menu 
option  are  presented  below. 


Figure  3.4.  POST-DAM  Expert  System  Main  Menu. 
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OPTION  1 


Option  1  should  be  selected  If  a  damaged,  mission-critical  facility  is  to  be 
assessed.  Selecting  Option  1  causes  the  airbase  mission-critical  facilities 
header  file  (see  Section  3.5.2. 1)  to  be  loaded  into  the  PDES  dynamic  knowledge 
base.  In  the  examples  shown  here,  Bitburg  AB  is  used.  Section  3. 3. 2. 1.3 
discusses  the  PDES  Menu  that  results  from  selecting  Option  1,  as  well  as 
explaining  the  process  of  entering  a  facility  number. 

OPTION  2 

Option  2  should  be  selected  from  the  menu  shown  in  Figure  3.4  if  the  user  wishes 
to  terminate  the  PDES  session.  Discussion  of  a  normal  PDES  session  termination 
is  given  in  Section  3. 3. 2. 1.5. 

OPTION  3 

Option  3  allows  modifications  to  the  PDES  Optional  Utility  Configuration  default 
settings.  Discussion  of  the  optional  utilities  and  their  default  settings  is 
given  in  Section  3. 3. 2. 1.2. 

3. 3. 2. 1.2  Modifying  the  Optional  Utility  Configuration 

PDES  was  developed  with  several  optional  utilities.  These  utilities 
provide  the  user  with  a  variety  of  help,  screen  displays,  and  file  transferring 
capabilities.  A  list  of  the  PDES  optional  utilities,  and  a  description  of  their 
functions  are  given  below. 

HELP  Lists  valid  responses  for  the  prompted  query.  This  option  is 

listed  in  a  PDES  menu  when  available. 

INPUT  Displays  on  the  screen  pertinent  data  from  the  mission- 
critical  facility  under  assessment,  and  echoes  all  user 
responses  to  PDES  queries. 

OUTPUT  Displays  on  the  screen  the  expedient  repair  strategy  selected 
by  PDES. 

FILE  Automatically  sends  all  POES  output  files  (.OUT, 

TRANSFER  .EQP,  and  .MAT  files)  to  the  designated  host  computer. 

The  user  may  enable  or  disable  any  of  the  above  optional  utilities  by 
executing  the  steps  given  below. 

1.  Select  Option  3  from  the  PDES  Main  Menu  shown  in  Figure  3.4. 

2.  Executing  Step  1  displays  the  PDES  Optional  Utility  Configuration 
screen  shown  in  Figure  3.5.  This  screen  lists  the  optional 
utilities  available  to  the  PDES  user.  To  proceed  further,  the  user 
must  press  the  [Enter]  key  as  instructed  on  the  screen,  which 
displays  the  Optional  Utility  Configuration  menu  shown  in 
Figure  3.6. 
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Figure  3.5. 


Figure  3. 


POST-DAM  Expert  System 


Optional  Utility  Configuration  Screen. 


.  POST-DAM  Expert  System  Optional  Utility  Configuration  Menu. 
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3.  To  modify  one  of  the  Utility  Configuration  settings,  the  user  is 
instructed  to  select  the  option  number  (Option  1  through  4) 
corresponding  to  the  utility  to  be  toggled  on  or  off. 

4.  The  Optional  Utility  Configuration  menu  refreshes  itself  each  time 
the  user  modifies  an  option.  The  user  can  make  more  modifications 
to  the  optional  utility  configuration  menu  by  repeating  Step  3. 
Once  the  user  is  satisfied  with  the  configuration,  the  optional 
utility  configuration  menu  settings  can  be  saved,  and  the  menu 
exited  by  selecting  Option  5  ("quit']. 

Selecting  Option  5  of  the  Optional  Utility  Configuration  menu  (Figure  3.6) 
saves  the  currently  displayed  settings,  and  displays  the  POES  Menu  discussed  in 
Section  3. 3. 2. 1.3. 

3. 3. 2. 1.3  Entering  a  Damaged  Facility  Number 

To  assess  damage  to  a  mission-critical  facility,  the  user  must  tell  POES 
the  facility  number,  so  PDES  can  load  that  facility's  specific  data  files  into 
its  dynamic  knowledge  base  (see  Section  3.5.2).  The  user  must  select  one  of  the 
four  options  from  the  Damaged  Facility  Number  Query  menu  shown  in  Figure  3.7. 
A  discussion  of  each  option  is  given  below. 

OPTION  1 

If  the  number  of  the  facility  to  be  assessed  is  known,  select  Option  1.  Upon 
entering  Option  1,  the  user  is  instructed  to  enter  the  facility  number,  as  shown 
in  Figure  3.8.  Entering  a  valid,  mission-critical  facility  number  opens  the 
three  facility-specific  PDES  data  files  (.OUT,  .EQP,  and  .MAT)  discussed  in 
Section  3.4.  The  Assessment  of  Damaged  Facility  menu  discussed  in  Section 
3. 3. 2. 2.1,  is  then  displayed  on  the  screen. 

OPTION  2 

If  general  information  on  valid,  mission-critical  facilities  is  desired  (and  the 
HELP  utility  is  enabled),  select  Option  2.  Entering  Option  2  displays  the 
Mission-Critical  Facility  Help  menu,  discussed  in  Section  3. 3. 2. 1.4. 

QEIIOO 

If  the  user  decides  the  menu  shown  in  Figure  3.7  was  arrived  at  in  error,  or  that 
further  modification  to  the  Optional  Utility  Configuration  is  needed,  select 
Option  3.  Selecting  Option  3  returns  the  user  to  the  PDES  main  menu  shown  in 
Figure  3.4.  The  user  is  urged  to  read  Section  3. 3. 2. 4,  entitled  "Returning  to 
a  Previous  PDES  Menu,"  to  completely  understand  ll.c  operation  of  returning  to  a 
previous  menu. 

QPTIQNJi 

If  the  user  wishes  to  terminate  the  PDES  session,  select  Option  4. 
Section  3.3.2. 1.5  discusses  normal  termination  of  a  PDES  session. 
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Figure  3.7. 


POST-DAM  Expert  System  Damaged  Facility  Number  Query  Menu. 


Figure  3.8.  POST-DAM  Expert  System  Damaged  Facility  Number  Query  Menu 
with  Facility  Number  Input  Prompt. 
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MARNINGi  Selectins  the  number  of  an  already  assessed  facility  will  cause 
the  loss  of  the  first  assessment's  data.  The  user  should  reenter  a  facility 
number  only  if  that  facility  needs  to  be  reassessed. 

3. 3. 2. 1.4  Damaged  Facility  Number  Help  Menu 

Selecting  Option  2  from  the  Damaged  Facility  Number  Query  menu,  shown  in 
Figure  3.7,  activates  the  PDFS  Help  Utility.  If  the  user  has  disabled  the  Help 
Utility  (reference  Section  3. 3. 2. 1-2),  the  POES  Help  Utility  will  generate  the 
PDFS  system  message 

HELP  UTILITY  DISABLED.  PRESS  <Enter>  TO  CONTINUE: . 

Upon  pressing  the  [Enter]  key,  the  user  is  returned  to  the  menu  shown  in 
Figure  3,7.  If  the  user  has  not  disabled  the  Help  Utility  (Help  Utility  in 
system  default  mode),  the  POST-DAM  Help  Utility:  Bitburg  Air  Base  Mission 
Critical  Facilities  menu  shown  in  Figure  3.9  is  displayed.  From  this  menu,  the 
user  is  Instructed  to  select  one  of  the  valid  mission-critical  facility  numbers 
listed.  Entering  a  valid  mission-critical  facility  number  displays  the 
Assessment  of  Damaged  Facility  menu  discussed  in  Section  3.3.2.2.I.  Entering  an 
invalid  mission-critical  facility  number  generates  an  error  message,  and  returns 
the  user  to  the  menu  shown  in  Figure  3.7. 

WARNING!  Selecting  the  number  of  an  already  assessed  facility  will  cause 
the  loss  of  the  first  assessment's  data.  The  user  should  reenter  a  facility 
number  only  if  that  facility  needs  to  be  reassessed. 

3. 3. 2. 1.5  Terminating  the  POST-DAM  Expert  System 

The  POST-DAM  Expert  System  can  be  terminated  normally  only  from  its 
Environmental  Level.  The  two  locations  from  which  normal  session  termination  can 
be  accomplished  are  Option  2  of  the  Main  Menu  (shown  in  Figure  3.4),  and  Option 
4  of  the  Damaged  Facility  Number  Query  menu  (shown  in  Figure  3.7).  Selecting 
either  option  closes  any  opened  PDES  data  files,  and  terminates  the  compiled 
version  of  the  program  PD, CLP.  Exiting  the  compiled  version  of  PD. CLP  returns 
execution  control  to  the  PDES  batch  job  PD. BAT.  PD. BAT  handles  necessary  PDES 
file  management,  and  returns  control  back  to  the  DOS  operating  system.  The  'PDES 
Logoff  Banner,'  shown  in  Figure  3.10,  is  displayed  following  a  normal  PDES 
session  termination. 

If  the  POST-DAM  Expert  System  is  exited  abnormally  (either  by  a  system 
error  or  by  the  user  initiating  the  abnormal  end  of  PD. CLP  by  hitting  the  [CTRL] 
C  keys),  some  or  all  of  the  PDES  data  files  may  be  lost.  General  rules  of  thumb 
to  remember  if  PD. CLP  experiences  an  abnormal  end  (ABEND)  are  as  follows: 

*  If  the  ABEND  occurs  while  in  the  Environmental  Level,  all  PDES  data 

files  for  previously  assessed  facilities  and/or  elements  will  have 
been  successfully  transmitted  to  the  host  computer. 
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Figure  3.9. 


POST-DAM  Expert  System  Help  Utility:  Bitburg  AB 
Mission-Critical  Facilities  Menu. 


Figure  3.10.  POST-DAM  Expert  System  Logoff  Banner 
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*  If  the  'BEND  occurs  in  the  Facility  or  the  Element  Specific  Levels, 
all  PDt.  data  files  for  the  current  facility  will  be  lost.  All  PDES 
data  files  for  previously  assessed  facilities  will  have  been 
successfully  transmitted  to  the  host  computer. 

3. 3. 2. 2  Facility  Specific  Level 

The  Facility  Specific  Level  is  the  second  level  the  user  enters  within  a 
PDES  session.  Within  this  level,  the  PDES  system  notes  the  facility  number  the 
user  has  chosen  in  the  Environmental  Level  (reference  Section  3. 3. 2. 1.3),  and 
loads  the  corresponding  facility  specific  data  file  into  the  PDES  dynamic 
knowledge  base  (reference  Figure  1.2).  All  mission-critical  facility-specific 
data  files,  for  a  particular  airbase,  reside  within  PDES  memory. 

Identifying  damaged  element  types,  as  well  as  the  overall  assessment  of  a 
mission-critical  facility,  occur  within  the  PDES  Facility  Specific  Level. 
Sections  3. 3. 2. 2.1  and  3. 3. 2. 2. 2  discuss  the  general  overall  assessment  of  a 
mission-critical  facility,  and  selecting  a  damaged  element  category, 
respectively. 

3. 3. 2. 2.1  Facility  Damage  Assessment 

Entering  a  valid  mission-critical  facility  number  from  either  the  Damaged 
Facility  Number  Query  Menu  (shown  in  Figure  3.7)  or  the  POST-DAM  Help  Utility: 
Airbase  Mission-Critical  Facilities  Menu  (shown  in  Figure  3.9)  displays  the 
Assessment  of  Damaged  Facility  Menu.  This  menu,  shown  in  Figure  3.11,  is  used 
to  tell  PDES  whether  the  facility  under  assessment  is  a  candidate  for  expedient 
repair.  From  this  menu  the  user  may  enter  Options  1  through  4.  Each  option  is 
discussed  below. 

QETIOW  1 

If  the  facility  under  assessment  is  a  candidate  for  expedient  repair,  select 
Option  1.  Selecting  Option  1  displays  the  Select  Damaged  Element  Category  Menu 
discussed  in  Section  3. 3. 2. 2. 2. 

SEIJQM.2 

If  the  facility  under  assessment  is  beyond  expedient  repair,  select  Option  2. 
Entering  Option  2  causes  the  PDES  system  to  write  to  the  .OUT  PDES  data  file  a 
message  indicating  the  facility  is  beyond  expedient  repair.  No  information  is 
written  to  the  .EQP  or  .MAT  data  files.  PDES  then  closes  all  three  data  files, 
and  the  communications  software  transfers  them  to  the  host  computer  (see 
Reference  2.2.7).  Upon  completion  of  the  data  transfer,  control  is  again 
returned  to  the  expert  system,  and  the  Damaged  Facility  Number  Query  Menu  (shown 
in  Figure  3.7)  is  again  displayed,  so  assessment  of  another  mission-critical 
facility  can  begin. 
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Figure  3.11.  POST-DAM  Expert  System  Assessment  of  Damaged  Facility  Menu. 


OPTION  3 

If  the  user  decides  the  menu  shown  in  Figure  3.11  has  been  arrived  at  in  error, 
select  Option  3.  Selecting  Option  3  returns  the  user  to  the  PDES  Damaged 
Facility  Number  Query  Menu  shown  in  Figure  3.7.  The  PDES  .OUT,  .EQP,  and  .^T 
data  files  are  closed,  but  not  transmitted  to  the  POST-DAM  host  computer .  The 
reader  should  consult  Section  3. 3. 2. 4,  entitled  'Returning  to  a  Previous  PDES 
Menu,'  for  a  complete  explanation  of  this  option. 

QPTIQO 

If  the  user  wishes  to  terminate  assessment  of  the  current  facility,  select 
Option  4.  Selecting  Option  4  closes  the  POES  .OUT,  .EQP,  and  .MAT  data  files. 
If  at  least  one  damaged  element  of  the  current  facility  has  been  assessed  prior 
to  termination,  the  communication  software  sends  the  three  PDES  data  files  to  the 
POST-DAM  host  computer.  Upon  completion  of  the  data  transfer,  control  is  again 
returned  to  the  expert  system,  and  the  Damaged  Facility  Number  Query  Menu  (shown 
in  Figure  3.7)  is  again  displayed,  so  assessment  of  another  mission-critical 
facility  can  begin. 
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3. 3. 2. 2. 2  Selecting  a  Damaged  Element  Category 

Selecting  Option  1  from  the  Assessment  of  Damaged  Facility  Menu  (shown  in 
Figure  3.11}  displays  the  Select  Damaged  Element  Category  Menu  shown  in 
Figure  3.12.  This  menu  is  used  to  tell  PDES  the  type  of  damaged  element  to  be 
assessed.  From  this  menu,  the  user  may  either  choose  one  of  eight  element 
categories,  return  to  the  previous  menu,  or  terminate  the  current  facility 
assessment.  Each  of  the  ten  options  available  within  this  menu  is  discussed 
below. 

OPTION  1 

If  the  damaged  element  to  be  assessed  is  an  exterior  wall,  select  Option  1. 
Selecting  Option  1  displays  the  Damaged  Element  Number  Query  Menu  discussed  in 
Section  3. 3. 2. 3.1. 

OPTIONS  1  THROUGH  8 

Options  1  through  8  are  used  to  tell  PDES  the  element  category  of  the  damaged 
element  (within  the  current  mission-critical  facility)  to  be  assessed.  The  PDES 
element  categories  are  as  follows: 


OPTION  1 

EXTERIOR  NALL 

OPTION  2 

INTERIOR  WALL 

OPTION  3 

ROOF 

OPTION  4 

FLOOR 

OPTION  5 

BEAM 

OPTION  6 

COLUMN 

OPTION  7 

DOOR 

OPTION  8 

MISCELLANEOUS 

Entering  any  of  these  eight  options  displays  the  Damaged  Element  Number  Query 
Menu  discussed  in  Section  3. 3. 2. 3.1. 

OPTION  9 

If  the  user  wishes  to  return  to  the  previous  menu,  Instead  of  selecting  a  damaged 
element  category,  select  Option  9.  Selecting  Option  9  returns  the  user  to  the 
Assessment  of  Damaged  Facility  Menu  shown  in  Figure  3.11.  The  reader  should 
consult  Section  3. 3. 2. 4,  entitled  "Returning  to  a  Previous  PDES  Menu,"  for  a 
complete  explanation  of  this  option. 

OPTIQM-IO 

If  the  user  wishes  to  terminate  assessment  of  the  current  facility,  select 
Option  10.  Selecting  Option  10  closes  the  PDES  .OUT,  .EQP,  and  .MAT  data  files. 
If  at  least  one  damaged  element  of  the  current  facility  has  been  assessed  prior 
to  termination,  the  communications  software  sends  the  three  PDES  data  files  to 
the  POST-DAM  host  computer.  Upon  completion  of  the  data  transfer,  control  is 
again  returned  to  the  expert  system,  and  the  Damaged  Facility  Number  Query  Menu 
(shown  in  Figure  3.7)  is  again  displayed,  so  assessment  of  another  mission- 
critical  facility  can  begin. 
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Figure  3.12.  POST-DAM  Expert  System  Select  Damage  Element  Category  Menu. 


3. 3. 2. 3  Element  Specific  Level 

The  Element  Specific  Level  is  the  third  level  the  user  enters  within  a  PDES 
session.  Within  this  level,  the  PDES  system  prompts  the  user  for  the  number  of 
the  damaged  element,  the  element's  damage  mode,  and  dimensions  describing  the 
extent  of  damage.  From  this  information  PDES  can  assign  an  expedient  repair 
strategy  for  the  damaged  element,  and  calculate  all  required  repair  resources. 
The  following  sections  describe  the  various  types  of  PDES  menus  encountered 
within  the  PDES  Element  Specific  Level. 

3. 3. 2. 3.1  Entering  Damaged  Element  Number 

To  assess  damage  to  a  mission-critical  structural  element  within  a  valid 
mission-critical  facility  the  user  must  tell  PDES  the  element  number.  This 
information  is  provided  to  POES  through  the  Damaged  Element  Number  Query  Menu 
shown  In  Figure  3.13.  PDES  checks  the  element  number  for  validity,  against  the 
facility  specific  data  base  (Imported  as  described  In  Section  3. 3. 2. 1.3),  and 
verifies  the  defined  element's  category  (reference  the  Select  Damaged  Element 
Category  Menu  discussed  In  Section  3. 3. 2. 2. 2).  From  the  Damaged  Element  Number 
Query  Menu  the  user  may  enter  Option  1  through  4.  Each  option  Is  discussed 
below. 
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Figure  3.13.  POST-DAM  Expert  System  Damaged  Element  Number  Query  Menu. 


QRIIQK  1 

If  the  user  knows  the  number  of  the  element  to  be  assessed,  select  Option  1. 
Upon  selecting  Option  1,  the  user  is  prompted  to  enter  the  element  number,  as 
shown  in  Figure  3.14.  Entering  a  valid  mission-critical  element  number  displays 
one  of  eight  Damage  Mode  Assessment  Menus.  The  type  of  damage  mode  assessment 
menu  displayed  depends  on  the  category  of  the  element  being  assessed.  Section 
3. 3. 2. 3.2  discusses  the  various  Damage  Mode  Assessment  Menus. 

OPTION  2 

If  the  user  needs  a  list  of  valid  mission-critical  elements  (and  the  HELP  utility 
is  enabled),  select  Option  2.  Selecting  Option  2  displays  a  list  of  valid 
element  numbers  at  the  bottom  of  the  Damaged  Element  Number  Query  Menu,  as  shown 
in  Figure  3.15.  The  user  is  prompted  to  enter  one  of  the  displayed  element 
nuR^ers.  Entering  a  valid  mission-critical  element  number  displays  one  of  eight 
Damage  Node  Assessment  Menus.  The  type  of  damage  mode  assessment  menu  displayed 
depends  on  the  category  of  the  element  being  assessed.  Section  3. 3. 2. 3. 2 
discusses  the  various  Damage  Node  Assessment  Menus. 
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i-'igure  3.14.  POST-DAM  Expert  System  Damaged  Element  Number  Query  Menu 
with  Element  Number  Input  Prompt. 


Figure  3.15.  POST-D/W  Expert  System  Damaged  Element  Number  Query  Menu 
with  Kelp  Option. 
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QPIIQN  3 


If  the  user  wishes  to  return  to  the  previous  menu,  instead  of  selecting  a  damaged 
element  number,  select  Option  3.  Selecting  Option  3  returns  the  user  to  the 
Select  Damaged  Element  Category  Menu  shown  in  Figure  3.12.  The  reader  should 
consult  Section  3. 3. 2. 4,  entitled  ''Returning  to  a  Previous  POES  Menu,'  for  a 
complete  explanation  of  this  option. 

OPTION  4 

If  the  user  wishes  to  terminate  assessment  of  the  current  facility,  select 
Option  4.  Selecting  Option  4  closes  the  POES  .OUT,  .EQP,  and  .MAT  data  files. 
If  at  least  one  damaged  element  of  the  current  facility  has  been  assessed  prior 
to  termination,  the  communications  software  sends  the  three  POES  data  files  to 
the  POST-DAM  host  computer.  Upon  completion  of  the  data  transfer,  control  is 
again  returned  to  the  expert  system,  and  the  Damaged  Facility  Number  Query  Menu 
(shown  in  Figure  3.7)  is  again  displayed,  so  assessment  of  another  mission- 
critical  facility  can  begin. 

3. 3. 2. 3. 2  Selecting  Damage  Mode  Type 

The  PDES  system  has  a  different  Damage  Mode  Assessment  Menu,  or  menu 
system,  for  each  of  the  eight  different  PDES  damaged  element  categories.  These 
Damage  Mode  Assessment  Menus  are  shown  In  Figures  3.16  through  3.23.  Notice  that 
in  each  menu  system  the  user  is  given  a  number  of  options  to  describe  the  damage 
mode  of  the  element  being  assessed.  Selecting  the  option  which  best  describes 
the  damage  mode  guides  the  user  to  the  Enter  Damage  Specific  Dimensions  Menu 
discussed  in  Section  3. 3. 2. 3. 3. 

In  each  menu  shown  in  Figures  3.16  through  3.23,  the  user  is  given  the 
option  of  describing  the  damage  mode  as  OTHER,  or  selecting  Return  to  Previous 
Menu,  as  well  as  the  option  Quit  Assessment  of  Current  Element.  These  options 
are  discussed  in  detail  below. 

OPTION;  OTHER 

This  option,  within  the  Damage  Node  Assessment  Menus,  allows  the  user  to  define 
a  damage  mode  other  than  those  already  listed  in  PDES.  Upon  selecting  the  OTHER 
option,  the  user  is  taken  directly  to  the  Input  Verification  screen  discussed  in 
Section  3. 3. 2. 3. 4.  At  this  screen  the  user  should  describe  the  damage  mode  as 
clearly  as  possible  at  the  Applicable  Remarks  prompt.  These  remarks  will  place 
the  PDES-generated  expedient  repair  description  'Undetermined'  in  the  facility's 
.OUT  file.  PDES  does  not  write  to  the  .EQP  or  the  .MAT  files  when  a  repair 
strategy  of  'Undetermined'  Is  generated.  The  host  computer  operator  will  then 
have  to  assess  the  damage,  based  on  PDES  user  remarks,  and  recommend  an  expedient 
repair  strategy  and  required  resources,  using  the  POST-DAM  System  running  on  the 
host  C(»nputer  (Reference  2.2.3). 
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Figure  3.16. 


P0ST-DM1  Expert  System  Exterior  Wall  Damage  Mode 
Assessment  Menu. 


Figure  3.17.  F0ST>DAM  Expert  System  Interior  Wall  Damage  Node 
Assessment  Menu. 
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Figure  3. IS.  POST-DAM  Expert  System  Floor  Damage  Mode  Assessment  Menu. 
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Figure  3.20.  POST-DAN  Expert  System  Beam  Damage  Node  Assessment  Menu. 
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Figure  3.22.  POST-DAM  Expert  System  Door  Damage  Mode  Assessment  Menu. 


Figure  3.23.  POST-DAN  Expert  System  Miscellaneous  Damage  Mode 
Assessment  Menu. 
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OPTION:  BEYOND  EXPEDIENT  RFPAIR 


This  option  allows  the  PDES  user  to  report  that  a  particular  element,  within  an 
otherwise  expediently  repairable  facility,  is  beyond  expedient  repair.  Selecting 
the  Beyond  Expedient  Repair  option  takes  the  user  directly  to  the  Input 
Verification  screen  discussed  in  Section  3-3. 2. 3. 4.  PDES  then  assigns  to  that 
element  the  expedient  repair  strategy  Beyond  Expedient  Repair,  and  stores  that 
information  in  the  facility's  -OUT  file.  PDES  does  not  write  to  the  .EQP  or  the 
.MAT  files  when  a  repair  strategy  of  Beyond  Expedient  Repair  is  generated. 

OPTION:  QUIT  ASSESSMENT  OF  CURRENT  ELEMENT 

If  the  user  wishes  to  terminate  assessment  of  the  current  element,  select  the 
Quit  Assessment  of  Current  Element  option.  Selecting  this  option  results  in  no 
element-specific  data  for  the  current  assessment  being  written  to  the  PDES  .OUT, 
.EQP,  or  .MAT  data  files,  and  returns  the  user  to  the  Select  Damaged  Element 
Category  Menu  shown  in  Figure  3.12. 

3. 3. 2. 3. 3  Entering  Damage  Specific  Dimensions 

PDES  prompts  the  user  for  all  necessary  damage  input  for  each  element  being 
assessed.  The  type  of  damage  input  requested  by  PDES  depends  not  only  on  the 
category  of  the  element  being  assessed  {reference  Section  3. 3. 2. 2. 2),  but  also 
on  the  damage  mode  entered  for  that  element  (reference  Section  3. 3. 2. 3. 2). 
Figure  3.24  shows  a  typical  PDES  Damage  Input  screen  for  an  exterior  wall 
suffering  from  excessive  cracking.  The  information  requested  by  this  menu  varies 
with  the  element's  category  and  damage  mode.  After  entering  all  damage  data 
rec'j?sted  by  POES,  the  system  displays  the  Input  Verification  Menu  discussed  in 
Sec'iion  3. 3. 2. 3. 4. 

3. 3. 2. 3. 4  Verifying  User  Input  Data 

Once  the  user  has  entered  all  damage  input  data  requested  by  PDES 
(reference  Section  3. 3. 2. 3. 3),  the  system  will  have  ample  information  to 
recommend  an  expedient  repair  strategy  for  the  damaged  element.  Prior  to 
selecting  the  expedient  repair  strategy  and  calculating  the  required  resources, 
the  PDES  system  allows  the  user  to  verify  all  element-specific  data  entered  for 
the  current  assessment.  Figure  3.25  shows  an  Input  Verification  screen  for  an 
exterior  wall  with  excessive  cracking. 

If  the  user  determines  that  the  element  data  entered  for  the  current 
assessment  is  correct,  a  response  of  "yes"  is  entered  at  the  Is  the  Input 
Information  Given  Above  Correct?  prompt.  The  PDES  system  responds  by  selecting 
the  most  appropriate  expedient  repair  strategy  from  its  knowledge  base,  and 
generating  all  resource  requirements.  PDES  then  prompts  the  user  for  any 
applicable  remarks,  as  shown  in  Figure  3.26.  Once  the  remarks  have  been  entered 
by  the  user,  PDES  displays  the  Expedient  Repair  Strategy  screen  discussed  in 
Section  3. 3. 2. 3. 5. 
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Figure  3.24.  POST-DAM  Expert  System  Damage  Input  Screen 
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Figure  3.25.  POST-DAM  Expert  System  Input  Verification  Screen. 


Figure  3.26.  POST-DAM  Expert  System  Input  Applicable  Remarks  Screen. 


If  the  user  thinks  the  response  to  a  PDES  query  was  wrong,  a  response  of 
"no*  is  entered  at  the  Is  the  Input  Information  Given  Above  Correct  ?  prompt. 
A  response  of  "no"  returns  the  user  to  the  Select  Damaged  Element  Category  Menu 
(reference  Figure  3.12),  without  writing  data  to  the  PDES  .OUT,  .EQP,  or  .MAT 
data  files. 


3. 3. 2. 3. 5  Reviewing  a  POES  Expedient  Repair  Strategy  Selection 

Once  the  user  exits  the  Input  Verification  screens  discussed  in  Section 
3. 3. 2. 3. 4,  PDES  searches  its  knowledge  base  for  the  most  appropriate  expedient 
repair  strategy  for  the  damaged  element.  The  expedient  repair  strategies  and 
their  resource  requirements,  found  within  the  PDES  system,  were  developed  in 
References  2.1.4  and  2.1.5.  Appendix  H  presents  the  truth  tables  that  form  the 
correlation  between  the  PDES  potential  damage  modes  and  their  corresponding 
expedient  repairs. 

Once  an  expedient  repair  strategy  is  selected,  and  the  resource 
requirements  calculated,  PDES  writes  the  information  to  the  PDES  .OUT,  .EQP,  and 
.NAT  data  files.  However,  prior  to  writing  the  element  information,  the  system 
shows  the  user  the  recommended  expedient  repair  strategy.  An  example  of  the 
Expedient  Repair  Strategy  screen  is  shown  in  Figure  3.27.  (NOTE:  This  screen 
is  not  displayed  if  the  Optional  Utility  Configuration  for  OUTPUT,  reference 
Section  3. 3. 2. 1.2,  has  been  disabled).  After  reviewing  the  selected  expedient 


46 


Figure  3.27.  POST-DAM  Expert  System  Expedient  Repair  Strategy  Screen. 


repair  strategy,  the  user  hits  the  [Enter]  key,  as  instructed.  PDES  responds  by 
writing  the  element  data  to  the  PDES  data  files,  and  returning  the  user  to  the 
Select  Damaged  Element  Category  Menu  (reference  Figure  3.12)  to  start  another 
element  assessment. 

3. 3. 2. 4  Returning  to  a  Previous  PDES  Menu 

An  option  entitled  RETURN  TO  PREVIOUS  MENU  appears  in  most  PDES  Menus,  to 
let  the  user  page  back  one  PDES  Menu  at  a  time.  This  option  is  extremely  helpful 
if  the  user  wishes  to  modify  previously  entered  input.  The  POES  Menu  system 
shown  in  Figure  3.3  shows  a  typical  connectivity  between  PDES  Menus.  In  this 
figure,  the  forward  logical  flow  is  indicated  with  solid  arrows.  Those  menus 
possessing  the  RETURN  TO  PREVIOUS  NDRJ  option  are  shown  with  a  dashed  arrow 
pointing  to  the  previous  menu. 

Extreme  care  should  be  exercised  when  returning  to  the  previous  menu. 
Ascending  to  the  previous  menu  may  have  undesirable  results  when  one  of  the  three 
PDES  logical  levels  (reference  Figure  1.3)  is  crossed.  The  following  discussion 
on  ascending  through  the  PDES  logic  levels  should  be  understood  before  using  a 
RETtffiN  TO  PREVIOUS  MENU  option. 
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Ascending  From  Element-Specific  to  Facil itv-Speciflc  Level 


Ascending  from  the  Element-Specific  Level  to  the  Facility-Specific  Level 
(from  the  Damaged  Element  Number  Query  Menu  to  the  Select  Damaged  Element 
Category  Menu)  results  in  the  loss  of  all  element  data  for  the  current 
assessment. 

Ascending  From  Facility-Specific  to  Environmental  Level 

Ascending  from  the  Facility-Specific  Level  to  the  Environmental  Level  (from 
the  Damaged  Facility  Number  Query  Menu  to  the  PDES  Ha in  Menu  and  Logon  Banner 
Menu)  results  in  the  loss  of  all  facility  data  for  the  current  and  previous 
assessments. 

3.3.3  Transferring  PDES  Data  Files  to  the  Host  Computer 

PDES  can  transfer  its  output  data  files  (See  Section  3.4)  to  the  POST-DAN 
Host  Computer  either  automatically  or  manually.  Automatic  file  transfer  is 
accomplished  when  the  PDES  Utility  Configuration  communication  setting  is  in  the 
default  mode  (reference  Section  3.3.2. 1.2).  Otherwise,  the  data  transfer  must 
be  accomplished  manually.  The  following  two  sections  discuss  the  operations  and 
procedures  associated  with  both  automatic  and  manual  PDES  data  transfer. 

3.3.3. 1  Automatic  Data  Transfer 

To  activate  the  PDES  automatic  data  transfer  system,  the  user  must  select 
an  option  from  the  POST-DAM  Communication  System  Menu  shown  in  Figure  3.28.  The 
communication  menu  automatically  appears  at  the  conclusion  of  each  facility 
assessment,  if  the  Optional  Utility  Configuration  communication  setting  is  in  its 
default  mode.  From  the  communication  menu  shown  in  Figure  3.28,  the  user  can 
select  either  of  two  options  for  Immediate  data  transfer,  or  one  option  to  defer 
data  transfer.  Each  of  these  options  Is  discussed  below. 

OPTION  1 

Selecting  Option  1  Immediately  transfers  the  PDES  data  files  to  the  host 
computer,  then  returns  the  user  to  the  POST-DAM  Expert  System  Main  Menu  shown  in 
Figure  3.4.  The  software  that  handles  the  data  transfer  Is  written  in  the 
CROSSTALK  Applications  Script  Language  (CASL).  This  program  and  the  entire 
conmunicatlon  system  are  discussed  in  SUM  Volume  8,  CROSSTALK  Mk.4  for  the  Remote 
Computer  (Reference  2.2.7). 

OPTION  2 

Selecting  Option  2  Immediately  transfers  the  PDES  data  files  to  the  host 
computer,  then  terminates  the  current  PDES  session,  and  returns  control  to  the 
DOS  operating  system.  The  POST-DAN  Expert  System  Logoff  Banner,  shown  in 
Figure  3.10,  Is  displayed  at  the  end  of  the  data  transfer.  The  software  that 
handles  the  data  transfer  1$  written  In  the  CROSSTALK  Applications  Script 
Language  (CASL).  This  program  and  the  entire  cornnuni cation  system  are  discussed 
In  SUM  Volume  8,  CROSSTALK  Mk.4  for  the  Remote  Computer  (Reference  2.2.7). 
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Figure  3.28.  POST-DAM  Expert  System  Communication  Menu. 


QEIIQO 

Selecting  Option  3  allows  the  user  to  assess  another  facility,  while  temporarily 
storing  the  current  PDES  data  files  in  the  subdirectory  C:\POSTDAM\DCC.  This 
option  can  be  repeated  at  the  end  of  each  of  as  many  facility  assessments  as 
desired.  Eventually  selecting  Option  1  or  2,  or  terminating  PDES,  then  transfers 
all  data  files  temporarily  stored  in  C:\POSTDAM\DCC.  Selecting  Option  3  returns 
the  user  to  the  POST-DAM  Expert  System  Damaged  Facility  Number  Query  Menu,  shown 
in  Figure  3.7.  From  this  menu  the  user  can  enter  the  number  of  another  facility 
to  be  assessed. 

3. 3. 3. 2  Manual  Data  Transfer 

The  automatic  data  transfer  feature  can  be  disabled,  as  discussed  in 
Section  3.3.2. 1.2,  if  the  user  desires  to  transfer  the  PDES  data  files  manually. 
Enabling  manual  data  transfer  eliminates  the  time  required  for  communication 
software  execution  at  the  end  of  each  facility  assessment.  If  automatic  data 
transfer  is  disabled,  the  PDES  system  will  not  show  the  POST-DAM  Communication 
System  Menu  (reference  Figure  3.28)  at  the  end  of  each  facility  assessment.  To 
manually  transfer  the  PDES  data  files  to  the  host  computer,  the  user  must  follow 
the  steps  listed  below. 

1.  Terminate  the  PDES  session,  as  described  in  Section  3. 3. 2. 1.5. 
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2. 


Enter  the  following  DOS  command  at  the  C:\P0STDAH  >  prompt 
C:\P0STDAM  >  xta1k4\xta1lc  call  dec 


This  DOS  command  causes  automatic  transfer  of  all  PDES  data  files  from  the  most 
current  PDES  session  terminated.  The  software  that  handles  the  data  transfer  is 
written  in  the  CROSSTALK  Applications  Script  Language  (CASL).  This  program  and 
the  entire  c(»nmuni cation  system  are  discussed  in  SUM  Volume  8,  CROSSTALK  Mk. 4  for 
the  Remote  Computer  (Reference  2.2.7). 

3.4  PDES  OUTPUT 

The  POST-DAM  Expert  System  generates  three  types  of  output  files  for  each 
mission-critical  facility  assessed.  These  output  files  have  the  file  extensions 
.OUT,  .EQP,  and  .MAT.  The  files  are  named  according  to  the  facility  being 
assessed,  as  shown  below: 

B(facility  number) .OUT 
B(facility  number). EQP 
B(facility  number). NAT 


In  the  above  nomenclature  the  facility  number  is  substituted  for  (facility 
number)  (i.e.,  B4058.0UT  for  Facility  4058).  These  PDES  output  files  are 
transferred  to  the  host  computer,  as  indicated  in  Section  3.3.3,  for  further 
processing  by  the  POST-DAM  System.  A  copy  of  each  output  file  is  also  stored  in 
the  subdirectory  PD_FILE.  Sections  3.4.1,  3.4.2,  and  3.4.3  discuss  each  of  the 
PDES  output  files  in  further  detail. 

3.4.1  PDES  .OUT  Files 

The  POST-DAM  Expert  System  generates  a  report  for  each  mission-critical 
facility  assessed  during  a  PDES  session.  These  reports  contain  information  on 
the  facility  being  assessed,  as  well  as  information  on  each  of  the  facility's 
damaged  elements  and  its  PDES-generated  expedient  repair  strategy.  Each  report 
generated  during  a  PDES  session  is  transferred  through  the  R)ES  .OUT  files  to  the 
POST-DAM  host  computer  for  further  processing. 

The  .OUT  files  are  formatted  into  sections  entitled  HEADER,  SECTION  I,  and 
SECTION  II.  The  HEADER  of  the  .OUT  file  contains  the  number  of  the  damaged 
facility,  and  the  name  of  the  airbase  on  which  the  damaged  facility  is  located. 
This  HEADER  appears  at  the  top  of  each  page  of  the  report  (.OUT  file).  SECTION  I 
of  the  .OUT  file  Is  used  to  store  general  information  on  the  facility  being 
assessed.  This  file  section  contains  the  facility  function.  Its  mission-critical 
priority  number,  and  a  general  structural  description.  SECTION  II  of  the  .OUT 
file  contains  the  damage  assessment(s)  thus  far  completed,  for  that  mission- 
critical  facility.  The  information  In  SECTION  II  of  the  .OUT  file  varies, 
depending  on  whether  the  facility  can  be  expediently  repaired.  The  following 
discussions  detail  SECTION  II  for  each  case. 
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Facility  Beyond  Expedient  Repair 


If  the  facility  being  assessed  is  beyond  expedient  repair  {reference 
Section  3. 3. 2. 2. I),  a  message  indicating  this  fact  will  appear  in  Section  II  of 
the  PDES  .OUT  file.  Figure  3.29  shows  an  example  of  a  POES  .OUT  file  in  which 
the  user  indicated  the  facility  was  beyond  expedient  repair. 

Facility  a  Candidate  for  Expedient  Repair 

If  the  facility  being  assessed  is  a  candidate  for  expedient  repair 
(reference  Section  3. 3. 2. 2.1),  Section  II  of  the  .OUT  file  will  be  partitioned 
to  accommodate  the  different  assessments.  Within  each  assessment,  PDES  generates 
two  subheadings  entitled  ^General  Element  Information'  and  'Repair  Strategy 
Information.'  The  general  element  information  section  contains  information  on 
the  damaged  element  and  its  damage  mode.  The  repair  strategy  information  section 
contains  the  PDES -generated  expedient  repair  strategy,  the  corresponding  repair 
resource  requirements,  and  an  entry  entitled  'Repair  Schedule.'  This  section  is 
left  blank,  to  be  completed  by  the  POST-DAM  System  host  computer  operator 
(Reference  2.2.4).  Figure  3.30  shows  a  PDES  .OUT  file  containing  three  element 
assessments  for  a  damaged,  mission-critical  facility. 

3.4.2  PDES  .EQP  Files 

Once  PDES  has  selected  an  expedient  repair  strategy  for  a  damaged  element, 
it  calculates  the  equipment  resources  required  to  perform  the  repair.  This 
equipment  information  is  written  in  the  PDES  .EQP  file,  in  delimited  ASCII 
format,  for  each  element  damage  assessment  performed  for  a  given  mission-critical 
facility.  This  file  is  transferred,  upon  completion  of  the  facility  assessment, 
to  the  POST-DAM  System  Host  Computer  for  further  processing.  Figure  3.31  shows 
a  typical  PDES  .EQP  file  for  a  facility  for  which  three  element  damage 
assessments  have  been  performed. 

3.4.3  PDES  .MAT  Files 

Once  POES  has  selected  an  expedient  repair  strategy  for  a  damaged  element, 
it  calculates  the  material  resources  required  to  perform  the  repair.  This 
material  information  is  written  in  the  PDES  .MAT  file,  in  delimited  ASCII  format, 
for  each  element  damage  assessment  performed  for  a  given  mission-critical 
facility.  This  file  is  transferred,  upon  completion  of  the  facility  assessment, 
to  the  POST-DAM  System  Host  Computer  for  further  processing.  Figure  3.32  shows 
a  typical  PDES  .MAT  file  for  a  facility  for  which  three  element  damage 
assessments  have  been  performed. 

3.5  PDES  KNOWLEDGE  BASE 

The  PDES  knowledge  base  has  two  components.  They  are  the  'static'  and 
'dynamic'  knowledge  bases  (reference  Figure  1.2).  The  term  'static'  means  the 
facts  contained  in  that  portion  of  the  knowledge  base  are  constant.  Therefore, 
each  time  PDES  is  compiled,  the  same  facts  are  loaded  from  the  PDES  system  memory 
(DAT  subdirectory  of  the  C  drive).  The  term  'dynamic'  means  the  facts  contained 
in  that  portion  of  the  knowledge  base  may  change  for  each  PDES  session,  or 
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{■OST-ATTACK  DAMAGE  ASSESSMEHT  OF 
FACILITY  NUMBER  5 
BXTBDRG  AIR  BASE,  GERMANY 


X.)  GENERAL  FACILITY  INFORMATION 

Function  :  "FICTITIOUS  FACILITY" 

Priority  ;  2 

Description  :  "HARDENED  RC  STRUCTURE" 

II.)  DAMAGE  ASSESSMENTS 

Damage  to  building  number  5  places  it  beyond  expedient  repair. 
No  manpower  or  equipment  will  be  scheduled. 


END  OF  OUTPUT  DATA  FOR  BUILDING  NUMBER 


5  **************** 


Figure  3.29.  POST-DAM  Expert  System  .OUT  File  for  a  Facility 
Beyond  Expedient  Repair. 
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POST-ATTACK  DAMAGE  ASSESSMENT  OF 
FACILITY  NUMBER  4058 
BITBORG  AIR  BASE,  GERMANY 


I.)  GENERAL  FACILITY  INFORMATION 

Function  ;  "ALTERNATE  SRC" 
Priority  :  1 

Description  :  "HARDENED  RC  STRUCTURE" 
II.)  DAMAGE  ASSESSMENTS 

Daaage  Assessnent  Nuaber  :  1 

A. }  General  Eleaent  Inforaation 


Eleaent  Nuaber 
Eleaent  Description 
Daaage  Mode 
Daaage  Nidth 
Daaage  Height 
Repair  Strategy 


103 

EXTERIOR  NALL 
HALL  BREACH 

12.5  ft. 

8.5  ft. 
SHOTCRETE 


B. )  Repair  Strategy  Inforaation 


1. )  Required  Materials 

Grade  A  2x4 
Grade  A  Plywood 
Hire  Mesh 
Shotcrete  Material 
Hater 

2. )  Required  Equlpaent 


44.3  ft. 

152.3  sq.  ft. 

108.3  sq.  ft. 

4.7  cubic  yards 

140.2  gallons 


Shotcrete  Unit  v/  Accessories  :  1 

Repair  TeaB(s)  1 

Raaset  v/  Stud  2 

3.)  Estiaated  Repair  Tlae  : 

Repair  Teaa  Hours  :  3.75 


4.)  Reaarks 


ROOM  EXPOSED  TO  OUTSIDE  ENVIRONMENT.  SEAL  ROOM. 


5.)  Repair  Schedule  : 

Start  Repair  : 
Finish  Repair  : 


Figure  3.30.  POST-DAM  Expert  System  .(HIT  File  for 
which  can  be  Expediently  Repaired. 


Facility 
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POST-ATTACK  DAMAGE  ASSESSMENT  OF 
FACILITY  NUMBER  4058 
BZTBORG  AIR  BASE,  GERMANY 
( continue ) 


Daaage  Assesraent  Nuaber  :  2 

A.)  General  Eleaent  Inforaatlon 


Elraent  Nuaber 
Eleaent  Description 
Damage  Mode 
Damage  Width 
Damage  Height 
Damage  Length 
Repair  Strategy 


301 

ROOF 

ROOF  BREACH 

4.5  ft. 

8.0  ft. 

10.5  ft. 
SKOTCRETE 


B.)  Repair  Strategy  Information 

1.)  Required  Materials  : 


Grade  A  2x4 

43.3 

ft. 

Grade  A  Plywood 

81.3 

sq.  ft. 

Wire  Mesh 

47.3 

sq.  ft. 

Shoterete  Material 

2.1 

cubic  yards 

Water 

62.3 

gallons 

2. )  Required  Equipment  : 

Shoterete  Unit  w/  Accessories  :  1 

Repair  Teaa(s)  :  1 

Ramset  v/  Stud  :  2 

3. )  Estimated  Repair  Tine  : 

Repair  Team  Hours  :  2.25 

4. )  Remarks 

THIRD  FLOOR  EXPOSED  TO  OUTSIDE  ENVIRONMENT.  SEAL  OFF  3RD  FLOOR. 

5. )  Repair  Schedule  : 

Start  Repair  : 

Finish  Repair  : 


Figure  3.30.  POST-DAM  Expert  Systew  .OUT  File  for  a  Facility 
which  can  be  Expediently  Repaired  (Continued). 
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POST-ATTACK  DAMAGE  ASSE5SKEKT  OF 
FACILITY  NUMBER  4058 
BITBORG  AIR  BASE,  GERMANY 
(continue) 


Damage  AasesBment  Nviaber  :  3 

A. )  General  Element  Information 

Element  Number  :  603 

Element  Description  :  COLUMN 

Damage  Mode  :  MAJOR  DAMAGE  /  MISSING 

Damage  Height  :  10.0  ft. 

Repair  strategy  :  COLUMN  SHORE 

B.  )  Repair  Strategy  Information 

1. )  Required  Materials  : 

Glulam  Column  :  10.0  feet 

2. )  Required  Equipment  : 

Ramset  v/  stud  2 

Shoring  Jack  :  1 

Chain  saw  :  1 

3. )  Estimated  Repair  Time  : 

Repair  Team  Hours  :  2.00 

4. )  Remarks  : 

NONE. 

5. )  Repair  Schedule  : 

Start  Repair  : 

Finish  Repair  : 

***********  end  of  OOTPOT  data  for  BUILDING  NUMBER  4058  **************** 


Figure  3.30.  POST-DAM  Expert  System  .OUT  File  for  a  Facility 
which  can  be  Expediently  Repaired  (Concluded). 
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"1"  "shotcrete  machine"  "l"  "ea"  "  3.75" 

"1"  "air  compressor"  "l"  "ea"  "  3.75" 

"1"  "electric  generator"  "l"  "ea"  "  3.75" 

"1"  "water  heater  /  pump"  "1"  "ea"  "  3.75" 

"1"  "water  hose  (50  ft.)"  "l"  "ea"  "  3.75" 

"1"  "water  buffalo"  "1"  "ea"  "  3.75" 

"1"  "ramset  w/  stud"  "2"  "ea"  "  3.75" 

"1"  "repair  team"  "1"  "ea"  "  3.75" 

"2"  "shotcrete  machine"  "l"  "ea"  "  2.50" 

"2"  "air  compressor”  "1"  "ea"  "  2.50" 

"2"  "electric  generator"  "1"  "ea"  "  2.50" 

"2"  "water  heater  /  pump"  "1"  "ea"  "  2.50" 

"2"  "water  hose  (50  ft.)"  "l"  "ea"  "  2.50" 

"2"  "water  buffalo"  "1"  "ea"  "  2.50" 

"2"  "ramset  w/  stud"  "2"  "ea"  "  2.50" 

"2"  "repair  team"  "1"  "ea"  "  2.50" 

"3"  "ramset  w/  stud"  "2"  "ea"  "  2.00" 

"3"  "shoring  jack"  "1"  "ea"  "  2.00" 

"3"  "chainsaw"  "1"  "ea"  "  2.00" 

"3"  "repair  teaun"  "1"  "ea"  "  2.00" 


Figure  3.31.  POST-DAM  Expert  System  Typical  .EQP  File 


"1"  "plywood  4x8  .5in"  "5"  "ea" 

"1"  "wire  mesh”  "  106.3"  "sqf" 

"1"  "shotcrete"  "  4.7"  "cy" 

"1"  "water"  "  140.2"  "gal" 

"2"  "2x4  16ft"  "3"  "ea" 

"2"  "plywood  4x8  .5in"  "3"  "ea" 

"2"  "wire  mesh"  "  36.0"  "sqf" 

"2"  "shotcrete"  "  1.6"  "cy" 

"2"  "water"  "  47.5"  "gal" 

"3"  "glulam  column  12x12  10ft"  "1" 

"ea" 


! 


Figure  3.32.  POST-DAM  Expert  System  Typical  .MAT  File. 
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several  times  within  a  session.  This  portion  of  the  knowledge  base  contains 
facility-dependent  facts.  These  facts  are  loaded  into  the  knowledge  base  from 
facil ity-specific  data  files  stored  in  the  PDES  system  memory.  Dynamic  memory 
allows  POES  to  load  and  unload  facts  pertaining  to  the  facility  being  assessed. 
This  capability  saves  valuable  RAM,  and  enables  PDES  to  operate  faster. 
Sections  3.5.1  and  3.5.2  discuss  specific  aspects  of  both  POES's  static  and 
dynamic  knowledge  bases. 

3.5.1  Static  Knowledge  Base 

PDES  is  a  phase-controlled  expert  system,  which  needs  "control"  facts  to 
fire  the  system's  rules  in  a  regulated  manner.  The  static  facts  of  the  PDES 
knowledge  base  are  the  control  facts  used  to  assure  proper  execution  of  the 
expert  system.  Figure  3.33  shows  the  facts  comprising  the  PDES  static  knowledge 
base,  in  their  initial  state. 

3.5.2  Dynamic  Knowledge  Base 

The  PDES  dynamic  knowledge  base  contains  only  airbase-  and  facility- 
specific  knowledge.  The  system  operates  by  loading  into  its  knowledge  base  the 
airbase-specific  data  in  the  PDES  system  memory  (reference  Figure  1.2).  The 
airbase-specific  data  indicate  the  airbase  on  which  assessments  are  to  be 
performed,  and  the  mission-critical  facilities  located  on  that  airbase.  The 
expert  system  then  asks  the  user  to  input  a  mission-critical  facility  to  be 
assessed  (reference  Section  3. 3. 2. 1.3).  If  a  valid  mission-critical  facility  is 
entered,  PDES  will  load  the  data  for  that  facility  from  the  PDES  system  memory 
into  its  knowledge  base.  Figure  3.34  shows  a  typical  PDES  dynamic  knowledge  base 
with  airbase-  and  facility-specific  knowledge  loaded. 

3. 5. 2.1  Current  Mission-Critical  Facility  Data  Files 

The  data  presently  in  the  PDES  system  memory  are  for  prototype  testing 
only.  Although  it  includes  a  variety  of  facility-specific  data  files,  it  is 
assumed  for  testing  purposes  that  all  these  facilities  are  located  on  Bitburg  Air 
Base,  Germany.  Therefore,  the  airbase-specific  data  for  this  test  version  of 
PDES  is  labelled  "BITBURG.DAT." 

The  facility-specific  data  files  in  the  system  memory  include  the  files 
entitled: 


BLDG138.0AT  BL0G464.DAT  BLDG4058.DAT  BLDG9999.DAT 

BLDG1.DAT  BLDG2.DAT  BLDG3.DAT  BLDG4.DAT 

BLDG5.DAT 

These  files  were  obtained  from  a  variety  of  sources.  The  files  named 
BLDG138.DAT,  6L0G464.DAT,  and  BLDG4058.DAT  were  constructed  from  oata  obtained 
by  performing  a  hypothetical  damage  assessment  of  mission-critical  ^acili^ies 
138,  464,  and  4058  at  Bitburg  Air  Base,  Germany  (Reference  2.2.8).  The  file 
named  BLDG9999.DAT  was  constructed  by  performing  a  hypothetical  damage  assessment 
of  the  NATO  Structure  at  Tyndall  Air  Force  Base,  Florida  (Reference  2.2.8).  The 
remaining  five  files  are  for  fictitious  structures,  which  augment  the  range  of 
facilities  and  element  types  for  system  testing  purposes. 
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(banner  logon) 

(building-header  0  0  "null"  "null") 

(element “header  0  "null"  "null"  "null") 
(assessment-number  1) 

(data  000) 

(setup  help-on  input-on  output-on  printer-off  comm-off) 
(carrage-return  22) 

(0  facility-header  0  0  "null"  "null"  DUMMYCARD) 


Figure  3.33.  POST-DAM  Expert  System  Static  Knowledge  Base. 


(buildlng-haadcr  4058  2  "HAROEHSD  PC  STRDCTDRB”  "ALTERNATE  SRC") 
(KISSION-CRITICAL-EXTERIOR-WALLS  100  101  102  103) 
(MISSION-CRITICAL-INTERIOR-WALLS  200  201  202) 
(MISSION-CRITICAL-ROOPS  300  301  302) 

(HISSION-CRITICAL-FLOORS  400  401) 

(MISSION-CRITZCAL-BEAMS  500  501  502  503) 
(MXSSION-CRITZCAL-COIOHNS  600  601  602  603  604) 
(MISSIOH-CRITICAL-DOORS  700  701) 

(MISSlOW-CRlTICAL-tgSCELLANEOaS  800) 

( EXTERIOR-WALL  100  Msonry  0  9.5  0  O  nlc) 

( EXTERIOR-WALL  101  aasonry  0  9.5  0  0  nlc) 

( EXTERIOR-WALL  102  nasonry  1  9.5  0  0  nlc) 

( EXTERIOR-HALL  103  nasonry  2  9.5  0  0  nlc) 

(INTERIOR'HALL  200  nasonry  0  9.5  0  o  nlc) 

(INTERIOR-WALL  201  nasonry  0  9.5  0  0  nlc) 

(INTERIOR-WALL  202  nasonry  0  9.5  0  0  nlc) 

(ROOF  300  concrsts  2  9.5  0  O  null) 

(ROOF  301  concrete  2  9.5  0  0  null) 

(ROOF  302  concrete  2  9.5  0  0  null) 

(FLOOR  400  concrete  0  4.0  0  0  null) 

(FLOOR  401  concrete  l  4.0  o  o  null) 

(BEAM  500  concrete  1  9.5  9.5  120  100) 

(BEAM  501  concrete  1  9.5  9.5  120  100) 

(BEAM  502  concrete  2  9.5  9.5  120  100) 

(BEAM  503  concrete  2  9.5  9."  120  100) 

(COUmN  600  concrete  1  9.5  9.5  120  lOO) 

(COLUMN  601  concrete  1  9.5  9.5  120  100) 

(COLUMN  602  concrete  1  9.5  9.5  120  500} 

(COLUMN  603  concrete  1  9.5  9.5  120  500) 

(COLUMN  604  concrete  1  9.5  9.5  120  500) 

(DOOR  700  STEEL  0  6.0  48.0  96.0  PERSONEL-BLAST-DOOR) 

(DOOR  701  STEEL  0  6.0  48.0  96.0  OVERPRESSURE-DOOR) 

(MISCELLANEOUS  800  STEEL  0000  VENT) 


Figure  3.34.  POST-DAM  Expert  System  Typical  Dynamic  Knowledge  Base. 


3. 5. 2. 2  Format  of  Imported  Mission-Critical  Facility  Files 

The  airbase-  and  facility-specific  data  must  be  entered  into  their 
respective  files  in  a  particular  format,  so  PDFS  will  interpret  the  data 
correctly.  The  following  two  sections  detail  the  formats  for  each  type  of  data 
entry. 

3. 5. 2. 2.1  Airbase-Specific  Data  File 

Within  the  AIRBASE-SPECIFIC  DATA  FILE  are  three  data  types,  or  blocks. 
Figure  3.35  shows  the  AIRBASE-SPECIFIC  DATA  FILE  generated  for  the  PDES  prototype 
test,  and  included  on  the  PDES  System  Diskette.  The  data  blocks  and  their  format 
are  as  follows: 


BLOCK  1:  AIRBASE  ID 

The  first  data  block  in  the  AIRBASE-SPECIFIC  DATA  FILE  is  the  AIRBASE  ID.  This 
block  tells  PDES  the  airbase  on  which  the  assessments  will  occur.  The  format  for 
this  data  entry  is  as  follows: 

(<AIRBASE  ID>  nurober-of-mission-critical-facilities  <NUMBER>) 
where, 

<AIRBASE  ID>: 

<NUMBER> : 


BLOCK  2;  FACILITY  ID 

The  second  data  block  in  the  AIRBASE-SPECIFIC  DATA  FILE  is  the  FACILITY  ID. 
This  block  identifies  the  mission-critical  facilities  on  the  specified 
airbase.  The  format  for  the  FACILITY  ID  block  is  as  follows: 

(mission-critical -facilities  <FACILITY  NUMBERS») 

where, 

^FACILITY  NUMBERS>:  List  of  mission-critical  facilities. 


PIOCK  3: . FACILITIJEAPER 

The  third  data  block  in  the  AIRBASE-SPECIFIC  DATA  FILE  is  the  FACILITY  HEADER. 
This  block  contains  general  information  about  each  facility  listed  in  the 
FACILITY  ID  block.  Therefore,  there  should  be  the  same  number  of  data  entries 
in  this  block  as  there  are  in  the  ^FACILITY  NUMBERS>  field  of  the  FACILITY  ID 
block.  The  format  for  the  FACILITY  HEADER  is  as  follows: 


The  airbase  identification  (i.e.,  BITBURG-AB) 

The  number  of  mission-critical  facilities  on  the 
specified  airbase. 
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(-HEADER  CARD>  facility-header  -FACILITY  NUMBER>  -PRIORITY* 
-FUNCTION*  -DESCRIPTION*  -ASSESSMENT  STATUS*) 


where. 

Is  a  sequential  numbering  field  for  the  FACILITY 
HEADER  block.  The  first  FACILITY  HEADER  entry 
is  the  Number  1.  Each  successive  FACILITY 
HEADER  entry  is  Incremented  by  1.  The  final 
FACILITY  HEADER  entry  should  be  the  same  value 
entered  in  the  -NUMBER*  field  of  the  AIRBASE  ID 
block.  The  FACILITY  HEADER  entries  must 
correspond  to  the  -FACILITY  NUMBERS*  listed  in 
the  FACILITY  ID  block. 

The  facility  number  of  the  mission-critical 
facility. 

The  priority  assigned  to  the  mission-critical 
facility  by  the  Base  Civil  Engineer  (BCE). 

The  function  of  the  mission-critical  facility. 

A  general  description  of  the  facility's 
construction. 

The  current  assessment  status  of  the  facility. 
Always  initialized  to  ''NO'^. 

3. 5. 2. 2. 2  Facility  Specific  Data  Files 

Within  the  FACILITY-SPECIFIC  DATA  FILE  are  three  data  types,  or  blocks. 
Figure  3.36  shows  the  FACILITY-SPECIFIC  DATA  FILE  generated  for  Bitburg 
Facility  4058.  This  FACILITY-SPECIFIC  DATA  FILE  was  developed  for  the  PDES 
prototype  test,  and  is  included  on  the  PDES  System  Diskette.  The  three  data 
blocks  in  the  FACILITY-SPECIFIC  DATA  FILE,  and  their  format  are  as  follows: 

B.L0C.K1:  BMILPINg,  HEADER 

The  first  data  block  is  the  BUILDING  HE/U)ER  block.  This  block  identifies  the 
mission-critical  facility  by  number,  and  contains  general  facility 
information.  The  format  for  this  data  block  is  as  follows: 

(building-header  -FACILITY  NUMBER*  -PRIORITY*  -DESCRIPTION*  -FUNCTION*) 

where, 

-FACILITY  NUMBER*:  The  facility  number  of  the  mission-critical 

facility. 

-PRIORITY*:  The  priority  assigned  to  the  mission-critical 

facility  by  the  BCE. 


-HEADER  CARD*: 


-FACILITY  NUMBER*: 

-PRIORITY*: 

-FUNCTION*: 

-DESCRIPTION*: 

-STATUS*: 
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Figure  3.36.  POST-DAM  Expert  System  Typical  Facility 
Specific  Data  File. 


<DESCRIPTION> :  A  general  description  of  the  facility's 

construction. 

<FUNCTI0N>:  The  function  of  the  mission-critical  facility. 

BLOCK  2:  MISSION-CRITICAL  ELEMENT  CATEGORY 

The  second  data  block  is  the  MISSION-CRITICAL  ELEMENT  CATEGORY  block, 
and  has  eight  entries.  This  data  block  identifies  the  mission-critical 
element  categories  and  element  numbers  within  the  given  facility.  Each  of  the 
eight  data  entries  must  be  included,  regardless  of  whether  a  particular 
element  category  appears  within  the  facility.  The  order  and  format  in  which 
the  data  must  be  entered,  are  given  below. 

(HISSION-CRITICAL-EXTERIOR-WALLS  <LIST  OF  ELEMENTS^} 

(MISSION-CRITICAL- INTERIOR-WALLS  <LIST  OF  ELEMENTS>) 
(MISSION-CRITICAL-ROOFS  <LIST  OF  ELEMENTS>) 

(NISSION-CRITICAL-FLOORS  <LIST  OF  ELEMENTS^) 

(MISSION-CRITICAL-BEANS  <LIST  OF  ELEMENTS>) 

(MISSION-CRITICAL-COLUMNS  <LIST  OF  ELEMENTS>) 

(NISSION-CRITICAL-DOORS  <LIST  OF  ELEMENTS>) 
(MISSION-CRITICAL-NISCELLANEOUS  <LIST  OF  ELEMENTS>) 

where, 

<LIST  OF  ELEMENTS>:  A  list  of  elements  of  the  given  category  within 

the  particular  mission-critical  facility.  This 
field  should  be  left  blank  if  no  element  of  the 
given  category  exists. 

BLOCK  3;  MISSION-CRITICAL  ELEMENT 

The  third  data  block  is  the  MISSION-CRITICAL  ELEMENT  block.  There  must 
be  one  entry  for  each  element  in  the  <«LIST  OF  ELEMENTS>  field  in  each  MISSION- 
CRITICAL  ELEMENT  CATEGORY  block.  The  format  for  the  MISSION-CRITICAL  ELEMENT 
block  is  as  follows. 

(<ELEMENT  CATEGORY*  <ELEMENT  NUMBER*  <NATERIAL*  <FLOOR* 

<DIM1*  <DIM2*  <DIN3*  •cVARIABLE*) 


where. 


<ELEMENT  CATEGORY*:  The  element  category  being  entered.  Valid 

entries  are:  EXTERIOR- WALL,  INTERIOR- 
WALL,  ROOF,  FLOOR,  BEAM,  COLUMN.  DOOR,  and 
MISCELLANEOUS. 

<ELEMENT  NUMBER*:  The  number  assigned  to  the  mission- 

critical  element.  These  numbers  are 
assigned  during  the  Pre-Damage  Assessment 
of  the  mission-critical  facility,  and  are 
obtained  from  the  facility  field  manual. 


63 


<MATERIAL> : 


<FLOOR>: 


<DIM1>: 


<DIM2>: 


<DIM3>: 


<VARIABLE>: 


The  type  of  material  of  which  the  mission- 
critical  element  is  constructed. 


The  floor  level  on  which  the  mission- 
critical  element  is  located.  Valid 
responses  are  0  for  basement,  1  for 
ground,  2  for  second,  etc. 


Dimension  in  Inches.  Valid  dimensions  are 
as  follows: 


EXTERIOR-WALL 

INTERIOR-WALL 

ROOF 

FLOOR 

BEAN 

COLUMN 

DOOR 

MISCELLANEOUS 


thickness 

thickness 

thickness 

thickness 

width 

width 

thickness 

0 


Dimension  in  Inches.  Valid  dimensions  are 
as  follows: 


EXTERIOR-WALL  :  0 

INTERIOR-WALL  :  0 

ROOF  :  0 

FLOOR  :  0 

BEAN  :  depth 

COLUMN  :  depth 

DOOR  :  width 

MISCELLANEOUS  :  0 


Dimension  in  Inches.  Valid  dimensions  are 
as  follows: 


EXTERIOR-WALL  ;  0 

INTERIOR-WALL  :  0 

ROOF  :  0 

FLOOR  0 

BEAN  length 

COLUMN  height 

DOOR  :  height 

MISCELLANEOUS  :  0 


This  optional  field  is  used  to  enter  pertinent 
data  on  the  element.  Possibly  helpful  types  of 
information  are  as  follows: 


EXTERIOR-WALL  : 

null 

INTERIOR-WALL  : 

null 

ROOF 

null 

FLOOR 

null 
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BEAM  :  max.  bending  moment 

COLUMN  :  max.  axial  force 

DOOR  :  null 

MISCELLANEOUS  :  description  of  element 


The  MISCELLANEOUS  data  entry  in  the  MISSION-CRITICAL  ELEMENT  block  allows  the 
user  to  store  damage  mode  information  for  element  categories  PDES  does  not 
presently  recognize.  This  miscellaneous  information  is  transferred  to  the 
POST-DAM  System  on  the  Host  Computer,  so  assessment  of  the  damaged  element  can 
be  handled  by  a  responsible  party  in  the  DCC.  PDES  does  not  recommend  a 
repair  strategy  for  MISCELLANEOUS  elements. 

3. 5. 2. 3  Modifying  the  Contents  of  the  Mission-Critical  Facility  Data  Files 

The  PDES  system  memory  (DAT  subdirectory  of  the  C  drive)  contains  the 
predamage  assessment  files  for  all  mission-critical  facilities. 

Section  3. 5. 2. 3.1  discusses  the  procedure  for  modifying  facility  data  in  the 
DAT  subdirectory.  Section  3.5. 2.3.2  discusses  the  procedure  for  changing  the 
airbase  identified  in  the  DAT  subdirectory. 

3. 5. 2. 3.1  Modifying  Mission-Critical  Facility  Data  in  the  DAT  Subdirectory 
of  Drive  C 

The  following  procedures  should  be  used  to  modify  the  DAT  subdirectory 
of  the  C  drive. 

Modifying  a  Mission-Critical  Facility  File 

To  modify  a  mission-critical  facility  file,  use  the  following  procedure: 

a.  Modify  the  MISSION-CRITICAL  ELEMENT  CATEGORY  block  of  the 
FACILITY-SPECIFIC  DATA  FILE  (reference  Block  2  of 
Section  3. 5. 2. 2. 2}  as  required. 

b.  Add  or  delete  the  MISSION-CRITICAL  ELEMENT  block  entry,  within  the 
FACILITY-SPECIFIC  DATA  FILE  (reference  Block  3  of 

Section  3. 5. 2. 2. 2),  as  required. 

Adding  a  Mission-Critical  Facility  File 

To  add  a  mission-critical  facility  file  to  the  DAT  subdirectory,  use  the 
following  procedure: 

a.  Add  1  to  the  <NUMBER>  field  of  the  AIRBASE  ID  block  of  the 
AIRBASE-SPECIFIC  DATA  FILE  (reference  Block  1  of 
Section  3. 5. 2. 2.1). 

b.  Enter  the  facility  number  in  the  <FACILITY  NUMBERS>  field  of  the 
FACILITY  ID  block  of  the  AIRBASE-SPECIFIC  DATA  FILE  (reference 
Block  2  of  Section  3. 5. 2. 2.1). 
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c.  Make  a  corresponding  entry  in  the  FACILITY  HEADER  block  of  the 
AIRBASE-SPECIFIC  DATA  FILE  (reference  Block  3  of 

Section  3.5.2. 2.1).  The  term  'corresponding"  refers  to  file 
location  or  sequence. 

d.  Add  the  facility's  FACILITY-SPECIFIC  DATA  FILE  to  the  DAT 
subdirectory  (reference  Section  3. 5. 3. 3. 3). 

Deleting  a  Mission-Critical  Facility  File 

To  delete  a  mission-critical  facility  file  from  the  DAT  subdirectory, 
use  the  following  procedure: 

a.  Subtract  1  from  the  <NUHBER>  field  of  the  AIRBASE  ID  block  of  the 
AIRBASE-SPECIFIC  DATA  FILE  (reference  Block  1  of 

Section  3. 5. 2. 2.1). 

b.  Delete  the  facility  number  from  the  <FACILITY  NUMBERS>  field  of 
the  FACILITY  ID  block  of  the  AIRBASE-SPECIFIC  DATA  FILE  (reference 
Block  2  of  Section  3. 5. 2. 2.1). 

c.  Remove  the  facility's  FACILITY  HEADER  block  from  the  AIRBASE- 
SPECIFIC  DATA  FILE  (reference  Block  3  of  Section  3.5.2.2.1). 

d.  Remove  the  facility's  FACILITY-SPECIFIC  DATA  FILE  from  the  DAT 
subdirectory  (reference  Section  3. 5. 3. 3. 3). 

3. 5. 2. 3. 2  Modifying  the  Data  Base  to  Assess  a  Different  Airbase 

To  change  the  airbase  on  which  damage  is  to  be  assessed,  use  the 
following  procedure: 

a.  Delete  the  AIRBASE-SPECIFIC  DATA  FILE  and  the  FACILITY-SPECIFIC 
DATA  FILES  from  the  PDES  DAT  subdirectory  (reference 
Sections  3. 4. 2. 2.1  and  3. 5. 2. 2. 2,  respectively). 

b.  Create  a  new  AIRBASE-SPECIFIC  DATA  FILE  for  the  airbase  on  which 
damage  is  to  be  assessed  following  the  procedure  defined  in 
Section  3. 5. 2. 2.1. 

c.  Create  the  appropriate  number  of  FACILITY-SPECIFIC  DATA  FILES,  as 
defined  in  Section  3. 5. 2. 2. 2. 
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APPENDIX  A 


PD. CLP  SOURCE  CODE 
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PROGRAM  TITLE  :  POST-DAM  EXPERT  SYSTEM  (POES).  PD. CLP. 

PROGRAM  PURPOSE  ;  TO  ASSIGN  EXPEDIENT  REPAIRS  TO  USAFE  AND  PACAF 

MISSION-CRITICAL  FACILITIES  IN  A  POST-ATTACX 
SITUATION. 

PROGRAM  VERSION  :  1.02  (910220) 

DEVELOPED  BY  :  APPLIED  RESEARCH  ASSOCIATES,  INC. 

GULF  COAST  DIVISION. 

MODIFICATION  RECORD  : 


VERSION 

DATE  RELEASE 

PROGRAHMER 

0.10 

10/25/89 

TOM  WARREN 

0.11 

11/20/89 

TOM  WARREN 

0.12 

11/29/89 

TOM  WARREN 

0.13 

12/05/89 

TOM  WARREN 

0.14 

12/20/89 

TOM  WARREN 

0.15 

01/31/90 

TOM  WARREN 

0.16 

03/31/90 

TOM  WARREN 

0.17 

07/31/90 

TOM  WARREN 

1.01 

12/11/90 

JEFF  HOWARI 

1.02  02/15/91  JEFF  HOWARD 


MODIFICATIONS 

*  ORIGINAL  VERSION. 

DEVELOPED  TO  ASSESS  THE  FLOORS, 
WALLS,  AND  COLUMNS  AT  THE  C-74 
STRUCTURE  AT  EGLIN  AFB,  FL. 

*  MATERIALS  AVAILABLE  AT 
BITBURG  AB.  GERMANY  ADDED 

*  QUIT  OPTION  ADDED 

*  COMPOSITE  ARCH  ASSESSMENT  ADDED 

*  MODIFIED  SO  ONLY  SYSTEM 
QUERIES  APPEAR  ON  SCREEN 

*  RESOURCE  MANAGEMENT  REMOVED 
FROM  EXPERT  SYSTEM 

*  SYSTEM  MODIFIED  TO  BECOME 
A  SET  OF  FACILITY  SPECIFIC 
SYSTEMS 

*  CAPABILITY  TO  ENTER  COMMENTS 
ON  DAMAGED  ELEMENT  ADDED 

*  MAJOR  EXPERT  SYSTEM  DESIGN 
PHILOSOPHY  CHANGE  IMPLEMENTED. 

*  USE  OF  STATIC  AND  DYNAMIC 
KNOWLEDGE  BASES  ADDED  TO  ENABLE 
SYSTEM  TO  HANDLE  ANY  NUMBER 

OF  MISSION-CRITICAL  FACILITIES 
AND  MISSION-CRITICAL  ELEMENTS 

*  ALL  POTENTIAL  DAMAGE  MODES  AND 
REPAIR  STRATEGIES  HIOM  SUBTASK 
2.01  ADDED 

*  MULTI-LEVEL,  MENU-DRIVEN 
SYSTEM.  WITH  ERROR  DETECTION 
RULES  UTILIZED 

*  "RETURN  TO  PREVIOUS  MENU" 

OPTION  ADDED  TO  MENUS 

*  POES  OUTPUT  FILES  MIHIIFIED 

*  USER  DEFINED  OPTIONAL  PDES 
UTILITIES  ADDED 

*  ADDITION  OF  INPUT/OUTPUT 
BANNER  ON  EACH  SCREEN 

*  VERIFICATION  OF  INPUT  ADDED 

*  KAOER  CHANGES 

*  FILE  TRANSFER  CAPABILITY  ADDED 

*  MINOR  CHANGE  IN  UTILITY  MENU 

*  MODIFIED  REINITIALIZATION  RULE 

*  MODIFIED  ELEMENT  HEADER  CARDS 
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INITIALIZATION 


(deffacts  INITIALIZATION 
(banner  logon) 

(building-header  0  0  'null"  "null") 
(element-header  0  "null"  "null"  "null") 
(assessment-number  1) 

(data  000) 

(setup  help-on  input-on  output-on  conm-on) 
(carrage-return  67  0) 

(0  facility-header  0  0  "null"  "null"  OUHMYCARO) 
(dcc-files  no) 

) 


PRINT  LOGON  BANNER  TO  SCREEN 


(defrule  PRINT-P0ST0AM-L06QN-BANHER 
(declare  (salience  9900)) 

?ready  <-  (banner  ?log) 

(setup  The ip  ? input  Toutput  Tcomn) 

«> 

(retract  Tready) 

(system  "els") 

(open  "c:\\postdam\\dcc\\return.cam"  cal  "m") 

(close  cal) 

(open  "c:\\postdam\\drc\\f lies. dec"  ca2  "w") 

(close  ca2) 

(system  "type  c:\\postdam\\pd\\logon.pd") 

( load-facts  "c:\\postdam\\dat\\bitburg.dat"} 

(system  "type  c:\\postdam\Vpd\Nmenu  l.pd") 

(format  t  'XnX10sX23s'  '  "  "SELECT  OPTION  1  TO  3  :  ") 

(bind  Tresponse  (read)) 

(if  (eq  Tresponse  3) 
then 

(assert  (setup  modify  1)) 
else  (if  (eq  Tresponse  2} 
then 

(assert  (quit  level-shell  1)) 

(assert  (header  1)] 
else  (If  (eq  Tresponse  1) 
thint 

(assert  (trigger  damaged-bldg-ld  1)) 

(assert  (header  1)) 
else 

(format  t  "X10sXl7sX29s"  "  '  "INVALID  RESPONSE." 

"  HIT  <  enter  >  TO  CONTINUE.  ") 
(assert  (dvl  ■(readline))) 

(assert  (banner  Tiog)) 


INPUT  OAHAGED  BUILDING'S  IDENTIFICATION  AND  TEST  TO 
DETERMINE  IF  THE  FACILITY  IS  MISSION  CRITICAL 


(defrule  DAHAGED-8UIL0IN6-I0ENTITY 

Troadyl  <-  (trigger  dameged-bldg-ld  Tphase) 

TreadyE  (building-header  Tbldg-number  Tbldg-prlorlty 
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?bldg-description  ?bldg-function) 

(b i tburg-ab  number-of-mi ss ion-cr i t lea 1-fac i t i t ies 
?nunber-of -f ac 1 1 1 ty-cards ) 

(mlssion-crltical-facnitles  ITbldg-numbers) 

(setup  ?he1p  ? input  Toutput  ?ctmin} 

(retract  ?readyl) 

(If  (eq  ?phase  1] 
then 

(if  (eq  7he1p  help-on) 
then 

(system  'type  c:\\postdam\\pd\\iiienu_2h.ptr) 
else 

(system  "type  c;\\postdam\\pd\\menu_2.pd") 

(format  t  "XnXnX10sX23s - SELECT  OPTION  1  TO  4  :  ') 

(bind  Tresponse  (read)) 

(if  (eq  Tresponse  4) 
then 

(assert  (quit  1eve1-she11  1)) 
else 

(If  (eq  Tresponse  3) 
then 

(assert  (banner  logon)) 
else 

(if  (eq  Tresponse  2) 
then 

(if(eq  The Ip  help-on) 
then 

(assert  (utility  help-1  Tnusber-of-facility-cards  1)) 
else 

(format  t  "XnXnXlOsMSsXSOs" 

"  "  "HELP  UTILITY  IS  DISABLED." 

"  HIT  <  enter  >  TO  CONTINUE  ;  ") 

(assert  (dvl  ■(readline))) 

(assert  (trigger  damaged-bldg-id  1)) 

(assert  (header  1)) 

) 

else 

(If  (eq  Tresponse  1) 
then 

(bind  Tphase  2) 

(foTwat  t  "XnXnXlOsXlBs"  - FACILITY  NUMBER  :  ") 

else 

(format  t  "XnXnXlOsXlTsXESs"  "  "  "INVALID  RESPONSE. 

"  HIT  <  enter  >  TO  CONTINUE.  ") 

(assert  (dvl  ■(readline))) 

(assert  (trigger  damaged-bldg-ld  1)) 

(assert  (header  1)) 


(If  (eq  Tphase  2) 
then 

(bind  Tbldg-number  (read)) 

(retract  7rcady2) 

(If  (>  (member  Tbldg-number  STbldg-niMbers)  0) 
then 

( load-facts 

(str  cat  "c:\\postdam\\dat\\bldg"  Tbldg-nimiber  ".dat")) 
(assert  fopen-flles  yes)) 

else 

(If  (numberp  Tbldg-nusber) 
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then 

(foniwt  t  ''XnX10sX9sX4dX22sXnX10sX3SsXnXnX10sX28s' 

"  '  'BUILDING  "  ?bldg-number  '  IS  NOT  ON  THE  MISSION' 
'  '  'CRITICAL  FACILITY  Lin  OF  POST-OAM.' 

'  '  'HIT  <  enter  >  TO  CONiINUE  :  ') 
else 

(bind  Tbldg-number  0) 

(fonMt  t  'XnX10sX17sX29s'  '  '  'INVALID  RESPONSE.' 

HIT  <  enter  >  TO  CONTINUE.  ') 

) 

(assert  (dvl  -(readline))) 

(assert  (building-header  Tbldg-nunber  ?bldg-priority 
Tbldg-description  ?bldg-f unction)) 

(assert  (trigger  damaged-bldg-id  1)) 

(assert  (header  1)) 

) 

) 

) 


OPEN  OUTPUT  FILES 


(defrule  OPEN-OUTPUT-FILES 

?readyl  <-  (open-files  yes) 

?ready2  <-  (carrage-retum  ?lines  ?line-feed) 
(building-header  ?bldg-nisnber  ?bldg-priority 

?bldg-description  7b Idg-f unction) 


) 


(retract  ?readyl  ?ready2) 

(open  (str^cat  'c:\\postdam\\b'  Tbldg-nunber  '.out')  tal  ' 
(open  (str'cat  'c : WpostdamWb'  ?faldg-nunber  '.mat')  ta2  ' 
(open  (str  cat  'c: WpostdamWb'  ?bldg-number  '.eqp'j  ta3  ' 
(format  tal  'XnXnX56sXnX45sX5dXnX52sXn' 

'POST-AHACK  DAMAGE  ASSESSMENT  Or 
'FACILITY  NUmER'  ?bldg-number 
'B1TBUR6  AIR  BASE,  GERMANY') 

(fprintout  tal  '  ' 

(format  tal  'Xn  I.)  GENERAL  FACILITY  INFORNATIONXnXn') 
(fprintout  tal  '  Function  :  '  Tbldg-function  crlf) 

(fprintout  tal  '  Priority  :  '  Tbldg-priority  crlf) 

(fprintout  tal  '  Description  :  '  Tbldg-description) 

(format  tal  'XnXnll.)  DAMAGE  ASSESSMENTSXnXn') 

(bind  7 line-feed  (+  ?line-feed  16)) 

(assert  (carrage-retum  Tlines  71ine-feed)) 

(assert  (bldg-disp  Tbldg-number  yes)) 

(assert  (header  2)) 


e") 

**') 

w') 


crlf  crlf) 


. OnraMlNE*  IFBuiLoiNG'  isA’cAMioAirFOROMr . 

OF  THE  EXPEDIENT  REPAIR  STRATEGIES 


(defrule  BLDG-DISPOSITION 

Tready  <-  (bldg-disp  Tbldg-number  yes) 

(setup  The  ip  7  input  Toutput  Tcosin) 

-> 

(retract  Tready) 

(system  'type  c:WpostdamWpd\\menu  S-pcT) 

(format  t  'XnXi«10sX23a'  '  '  'SELECT  OPTION  1  TO  4  :  ') 
(bind  Tresponse  (read)) 

(if  (eg  Tresponse  4) 
then 

(assert  (trigger  damaged-bldg-id  1)) 
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(assert  (quit  level-building  1}) 

(assert  leader  1)} 

else 

(if  (eq  ?response  3) 
then 

(assert  (trigger  damaged-bldg-id  1}) 

(assert  (quit  level-building  1}} 

(assert  (header  1)) 
else 

(if  (eq  ?response  2) 
then 

(assert  (output -data  0000000000000 

'BUILDING  BEYOND  EXPEDIENT  REPAIR')) 
(assert  (output-files  repaired-no)) 

(assert  (header  1)) 
else 

(if  (eq  Tresponse  1) 
thm 

(assert  (damaged-element-category  query-yes)) 

(assert  (header  2)) 
else 

(format  t  'X10sX17sX29s'  '  '  'INVALID  RESPONSE.' 

'  HIT  <  enter  >  TO  CONTINUE.  ') 

(assert  (dwl  •(readline))) 

(assert  (bldg-disp  Tbldg-number  yes)) 

(assert  (header  2)) 


CATEGORIZATION  OF  HISSION  CRITICAL  ELEMENTS 


(defrule  CATEG0RIZATI0N-(ff-.^ISSI0N-CRITICAL-ELEMENTS 

Treadyl  <-  (damaged-element-category  query-yes) 

(building-header  ?bldg-nunber  Tbldg-priority 

?b1dg-description  7b Idg-f unction) 

?ready2  <-  (element-header  Telement-nunber  Tdescription 

Tdamage-fflode  Trepair) 

■> 

(retract  Treadyl  TreadyZ) 

(system  'type  c:\\postdam\\pd\\menu  A.pd") 

(format  t  'XnX6sX328 - SELECT  AN  OPTION  1  THROUGH  10  :  ') 

(bind  Tselection  (read)) 

(if  (or  (eq  Tselection  1) 

(eq  Tselection  2) 

(eq  ?se lection  3} 

(eq  Tselection  4) 

(eq  Tselection  5) 

(eq  Tselection  6) 

(eq  Tselection  7) 

(eq  Tselection  8) 

(eq  Tselection  9)  ] 
then 

(if  (eq  Tselection  1) 
then 

(assert  (element-number-verify  EXTERIOR-HALL 

MIS« iON-CRITICAL-EXTERIOR-HALLS) ) 
^assert  (element-  '» ier  Telement-nvasber  'EXTERIOR  HALL' 

Tdamage-mode  Trepair)) 

(assart  (header  r.5)) 

) 
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(if  (eq  ?se lection  2) 
then 

(assert  (element-number-verify  INTERIOR-WALL 

MISSION-CRITICAL-IHTERIOR-WALLS) ) 
(assert  (element -header  ?e1ement-number  "INTERIOR  WALL' 

Tdamage-mode  Trepair}) 

(assert  (header  2.5)} 

) 

(if  (eq  Tselection  3) 
then 

(assert  (element-niaeber-verify  ROOF 

MISSION-!  RITICAL-ROOFS)) 

(assert  (element-header  Telement-nianber  "ROOF' 

Tdamage-mode  Trepair)) 

(assert  (header  2.5)) 

) 

(if  (eq  Tselection  4) 
then 

(assert  (element-number-verify  FLOOR 

MISSION-CRITICAL-FLOORS) ) 

(assert  (element-header  Telement -number  "FLOOR" 

?damage-ntode  Trepair)) 

(assert  (header  2.5)) 

) 

(if  (eq  7se lection  5) 
then 

(assert  (element-number-verify  BEAM 

M I SS I ON-CR 1 TI CAL-BEAHS ) ) 

(assert  (element-header  Telement -number  "BEAM" 

Tdamage-fflode  ?repair)) 

(assert  (header  2.5)) 

) 

(if  (eq  ?se lection  6) 
then 

(assert  (element-number-verify  COLUMN 

mssm-CftmcAL-coLums ) ) 

(assert  (element-header  ?element-number  "COLUMN" 

Tdamage-mode  ?repair)) 

(assert  (header  2.5)) 

) 

(if  (eq  Tselection  7) 
then 

(assert  (element-number-verify  DOOR 

MISSION-CRITICAL-DOORS)] 

(assert  (element-header  Telement-number  'DOOR' 

Tdamage-fflode  Trepair)) 

(assert  (header  2.5)) 

) 

(if  (eq  Tselection  B) 
thm 

(assert  (elament-n»anber-verify  MISCELLANEOUS 

MISSION-CRITICAL-NISCELLANEOUS) ) 

(assert  (element-header  Telement -number  "MISCELLANEOUS" 

?damage-mode  Trepair)) 

(assert  (header  2.5]) 

) 

(if  (eq  Tse lection  9) 
then 

(assert  (bldg-disp  Tbldg-number  yes)) 

(assert  (element -header  Telement-nimiber  Tdescription 
Tdam^ge-mode  Trepair]) 

(assert  (header  2]) 

) 

else 

(if  (eq  Tse lection  10) 
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then 

(assert  (building-header  0  0  "nuir  "null")) 

(assert  (trigger  daniaged-b1dg-id  1)) 

(assert  (header  1)) 

(assert  (quit  level-building  1)) 
else 

(format  t  'XBsXlfsXZgs - INVALID  RESPONSE." 

'  HIT  <  enter  >  TO  CONTINUE.  ") 

(assert  (dvl  <>(rcadline)}) 

(assert  (damaged-e lament-category  query-yes)) 

(assert  (element -header  ?e lament -number  Tdescription 
Tdamage-fflode  Trepair)] 

(assert  (header  2)} 

) 

) 

) 


MISSION  CRITICAL  ELEMENT  NUMBER  VERIFICATION 


(defrule  MISSION-CRITICAL-ELEMENT-NUMBER-VERIFICATION 

Treadyl  <-  (element-number-verify  7e1ement-data  Tcategory) 

?ready2  <-  (element-header  Telement-nianber  Tdescriptlon 

Tdamage-mode  Trepair) 

?ready3  <-  (data  ?w1dth  ?he1ght  Tlength) 

(Tcategory  $?val id-numbers) 

(setup  ?he1p  ?input  Toutput  Tcomn) 

■> 

(retract  Treadyl  ?ready2  ?ready3) 

(bind  (temp  (length  (mv-append  iTvalid-numbers))) 

(if  (<  ?temp  1) 
then 

(fprintout  t  crlf  "THERE  ARE  NO  "  Tcategory  "  IN  THE  FACILITY" 

"  BEING  ASSESSED."  crlf  'HIT  <  enter  >  TO  CONTINUE 
(assert  (dvl  ■(readline))) 

(assert  (element -header  Telement-number  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (data  Twidth  Theight  Tlength)) 

(assert  (damaged-e lement -category  query-yes)) 

(assert  (header  2)) 
else 

(if  (eq  Thelp  help-on) 
then 

(system  "type  c.-\\postdam\\pd\Nmenu_5h.pd") 

else 

(system  'type  crWpostdamWpdWmenu.S.pd") 

(format  t  '5{nXnX10sX23s'  "  "  'SELECT  OPTION  1  TO  4  ;  ") 

(bind  Trcsponse  (read)) 

(if  (or  (eq  Tresponse  1) 

(eq  Tresponse  2) 

(eq  Tresponse  3) 

(eq  Tresponse  4) 

) 

then 

(if  (or  (eq  Tresponse  1) 

(eq  Tresponse  2) 

) 

then 

(bind  Ttest  0} 

(if  (eq  Tresponse  2) 
then 

(if  (eq  Thelp  help-off) 
then 
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(format  t  'X10sX48s"  '  ' 

'HELP  OPTION  DISABLED.  HIT  <enter>  TO  CONTINUE;  ') 
(bind  ?e lament-number  (readline)) 

(bind  Ttest  1) 

else 

(fprintout  t  'VALID  HISSION  CRITICAL  '  Tdescription 
'  ELEMENT  NUMBERS  ARE  AS  FOLLOWS:  ' 
crlf  STvalid-nunbers) 

(fprintout  t  crlf  'ENTER  VALID  ELEMENT  NUMBER:  ') 
(bind  Telement-nunber  (read)) 

) 

) 

(if  (eq  Tresponse  1) 
then 

(fonnat  t  'XlOsXBls' 

'  '  'ENTER  DAMAGED  ELEMENT  NUMBER  :  ') 

(bind  ?e lament -number  (read)) 

) 

(if  (>  (member  Telement-niinber  $?va1id-nianbers)  0) 
then 

(assert  (data  ?width  Theight  TIength)) 

(assert  (damage-mode-assessment  ?e1ement-data 
Tcategory) ) 

(assert  (element-header  ?e1ement-number  Tdescription 
Tdamage-fflode  Trepair)) 

(assert  (header  3}) 
else 

(if  (numberp  Telement -number] 
then 

(fprintout  t  '  '  'ELEMENT  NUMBER  ' 

Telement-nunber 

'  IS  NOT  A  MISSION  CRITICAL  ELEMENT.' 
crlf  '  '  'HIT  <enter>  TO  CONTINUE:  ') 

(assert  (dvl  *(read1ine))) 

else 

(if  (eq  Ttest  1) 
then 
else 

(format  t  'X10sXI7sX29s'  '  '  'INVALID  RESPONSE.' 

'  HIT  -t  enter  >  TO  CONTINUE.  ') 
(assert  (dvl  -(readline)}) 

) 

) 

(assert  (data  Twidth  Theight  Tiength)) 

(assert  (element-nissber-verlfy  Telement-data  Tcategory)) 
(assert  (element-header  Telanent-number  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (header  2.S)) 

) 

) 

(if  (eq  Tresponse  3) 
then 

(assert  (element-header  Telement-number  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (data  Twidth  Theight  Tiength)} 

(assert  (damsgad-e lament-category  query-yes)) 

(assert  (header  2)} 

) 

(if  (eq  Tresponse  4) 
thm 

(assert  (clement-header  Telement-number  Tdescription 
7dmiM*iKxie 

(assert  (data  Twidth  Theight  Tiength)) 

(assert  (quit  level-building  1)) 
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else 

(format  t  'X10sX17sX29s - INVALID  RESPONSE.' 

'  HIT  <  enter  >  TO  CONTINUE.  ") 

(assert  (dvl  -(readKne))) 

(assert  (element -number-verify  ?e1ement-data  Tcategory)) 
(assert  (element -header  Telement-number  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (data  Twidth  Thelght  Tiength}) 

(assert  (header  2.5}} 

) 

) 

) 


OAHASE  NODE  ASSESSMENTS 


(defrule  DAMAGE-NODE-ASSESSMENTS 

Treadyl  <-  (damage-mode-assessment  ?e1ement-data  Tcategory] 
?ready2  <-  (element-header  7e lament -number  Tdescriptlon 
Tdamage-mode  Trepair} 

(assessment -number  Tassessment} 

(?e1ement-data  ?e lament-number  Tmat  Tfloor  $?} 

•> 

(retract  Treadyl  TreadyT} 

(if  (eq  Tcategory  MISSION-CRITICAL-EXTERIOR-WALLS} 
then 

(system 't^  c:\\postdam\\pd\Vnenu  Gew.pd') 

) 

(if  (eq  Tcategory  MISSION-CRITICAL-INTERIOR-WALLS} 
then 

(system  'type  c:\\postdam\\pd\\menu  Glw.pcr} 

} 

(if  (eq  Tcategory  MISSION-CRITICAL-ROOFS) 
then 

(system  'type  c:\\postdam\\pd\\menu  Sr.pcT} 

) 

(if  (eq  Tcategory  MISSION-CRITICAL-FLOORS} 
then 

(system  'type  c:\\postdam\\pd\Vnenu  Gf.piT} 

) 

(If  (eq  Tcategory  MISSION-CRITICAL -BEAMS} 
then 

(system  'type  c:\\postdaffi\\pd\\menu  Gb.pd'} 

) 

(If  (eq  Tcategory  MISSION-CRITICAL-COLUmS) 
then 

(system  'type  c:\\postdam\\pd\\menu  Bc.pd'} 

) 

(If  (eq  Tcategory  MISSION-CRITICAL-OOORS} 
then 

(system  'type  c;\\postdam\\pd\\menu  Bd.pcT} 

) 

(If  (eq  Tcategory  MISSION-CRITICAL-MISCELLANEOUS} 
then 

(system  'type  c:\\postdam\\pd\\menu  6m. pd'} 

) 

(If  (eq  Tcategory  MISSION-CRITICAL-MISCELLANEOUS) 
then 

(format  t  'XnXnXlOsttOs'  '  '  'ENTER  OPTION  1  TO  3  :  '} 
(bind  Tnumber  3) 

else 

(if  (eq  Teategory  NISSION-CRITICAL-DOORS) 
thm 

(format  t  'XHXhXIOsKOs'  '  '  'ENTER  OPTION  1  TO  4  :  '} 
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(bind  ?nimb«r  4) 
else 

(if  (eq  ?category  MISSION-CRITICAL-COLUMNS) 
then 

{format  t  'XnXnXlOsXaOs -  'ENTER  OPTION  1  TO  6 

(bind  Tnunber  8) 
else 

(format  t  'XnSnX10s5t20s - 'ENTER  OPTION  1  TO  7 

(bind  Tnumber  7) 


(bind  Tresponse  (read)} 

(If  (eq  Tnimber  6) 
then 

(bind  ?test  (member  Tresponse  (mv-append  1234567  8))) 
else 

(If  (eq  Tnumber  7) 
then 

(bind  Ttest  (member  Tresponse  (mv-append  1  2  3  4  5  6  7))) 
else 

(if  (eq  Tnumber  4} 
then 

(bind  ?test  (mender  ?response  (mv-append  1  2  3  4))) 
else 

(bind  7test  (member  Tresponse  (mv-append  1  2  3))) 

) 


(If  (eq  ?test  0) 
then 

(format  t  'X10sX17a«9s - 'INVALID  RESPONSE.' 

'  HIT  <  enter  >  TO  CONTINUE.  ') 

(assert  (dv3  «(readl1ne))) 

(assert  (damage-mode-assessment  ?element-dsta  Tcategory)) 

(assert  (element-header  Telement-naaber  ?description 
Tdamage-mode  Trepair)) 

(assert  (header  3)) 
else 

(If  (or  (eq  Tcategory  HISSION-CRITICAL-EXTERIOR-WALLS) 

(eq  Tcategory  MISSION-CRITICAL-INTERIOR-VALLS) 

(eq  Tcategory  MISSION-CRITICAL-ROOFS) 

) 

then 

(If  (eq  Tresponse  1) 
then 

(assert  (element-header  7element-ni«ber  7descr1ption 
'EXCESSIVE  CRACICIN6'  'SHOTCRETE  SEAL')) 
(assert  (Input-data  on)) 

(assert  (header  4)) 

) 

(If  (eq  Tresponse  2) 
then 

(assert  (element-header  Telement-niaaber  7descr1pt1on 
'SMALL  HOLE'  'PLYWOOD  COVER')) 

(assert  (Input-data  on)) 

(assert  (header  4}) 

) 

(If  (eq  7response  3) 
then 

(If  (eq  fcategory  MISSION-CRITICAL-ROOFS) 
then 

Ussert  (element-header  Telement-nuaber  Tdescriptlon 
'ROOF  BREACH'  'SHOTCRETE  HORID) 

else 


(assert  (element -header  Telement-number  ?descr1ption 
'WALL  BREACH^  'SHOTCRETE  VERTICAL')) 

) 

(assert  (Input -data  on)) 

(assert  (header  4)) 

) 

) 

(if  (eq  Tcategory  MISSION-CRITICAL-FLOORS) 
then 

(if  (eq  Tresponse  1} 
then 

(if  (eq  ?floor  0] 
then 

(assert  (element-header  Telement -number  Tdescription 
'EXCESSIVE  CRACKING"  'PLYWOOD  COVER')) 

else 

(assert  (element-header  Telement -number  Tdescription 
"EXCESSIVE  CRACKING'  "SHORE  FLOOR")) 

) 

(assert  (input-data  on)) 

(assert  (header  4)) 

) 

(if  (eq  Tresponse  2) 
then 

(assert  (element-header  Telement-nianber  Tdescription 
"SMALL  HOLE"  "PLYWOOD  COVER")) 

(assert  (input-data  on)) 

(assert  (header  4)) 

) 

(if  (eq  Yresponse  3] 
thm 

(assert  (element-header  Telement-niasber  Tdescription 
'LARGE  HOLE'  "SHOTCRETE  HORID) 

(assert  (input-data  on)) 

(assert  (header  4)) 

) 

) 

(if  (eq  Tcategory  MISSION-CRITICAL-BEAMS) 
then 

(if  (eq  Tresponse  1) 
then 

(assert  (element-header  Telement-number  Tdescription 
"EXCESSIVE  DEFORMATION"  "null")) 

(assert  (beam-connection-query  on}} 

(assert  (header  4}} 

) 

(if  (eq  Tresponse  2) 
then 

(assert  (element-header  Telement-number  Tdescription 
"BEAM  FAILURE'  "COLUMN  SHORE"}} 

(assert  (Input -data  on)} 

(assert  (header  4}} 

) 

(if  (eq  Tresponse  3) 
then 

(assert  (element-header  Telement-nwber  Tdescription 
"CONNECTION  FAILURE'  "KNEE -BRACE"}) 

(assert  (ii^Hit-data  on)) 

) 

) 

(If  (eq  Tcategory  NISSION-CRITICAL-COLUNNS) 
then 

(if  (eq  Tresponse  1) 
then 

(assert  (element-header  Tclemsnt-ntasber  Tdescription 
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"SPALLING"  "SHOTCRETE  COLUMN’)) 

(assert  (Input-data  on]) 

(assert  (header  4)} 

) 

(If  (eq  ?response  2) 
then 

(assert  (element-header  telement-number  ?descr1pt1on 

"CRACKING/STEEL  DEBONOING"  "COLUMN  SPLINT")) 
(assert  (input -data  on]] 

) 

(If  (eq  Tresponse  3) 
then 

(assert  (element-header  Telement-number  Tdescription 

'MAJOR  DAMAGE  /  MISSING'  'COLUMN  SHORE']] 
(assert  (input-data  on]] 

(assert  (header  4}] 

) 

(if  (eq  Tresponse  4] 
then 

(assert  (element-header  ?e lament -number  Tdescription 
"CONNECTION  FAILURE"  "KNEE-BRACE")) 

(assert  (input-data  on)] 

) 

) 

(if  (eq  Tcategory  MISSION-CRITICAL-OOORS) 
then 

(format  t  "XnX10aX57sXnX10sX28s" 

"  "  "THIS  SECTION  INCOMPLETE  IN  PROTOTYPE  VERSION  OF  POST-DAM." 
"  "  "HIT  <  enter  >  TO  CONTINUE  :  ") 

(assert  (dvl  •(readline))) 

(assert  (element-header  ?e lament -nunber  Tdescription 
Tdamage-fflode  Trepair)) 

(assert  (damaged-element-category  query-yes)} 

(assert  (header  2)) 

) 

(if  (eq  Tcategory  MISSIDN-CRITICAL-MISCELLANEOUS) 
then 

(format  t  "XnX10sX57sXnX10sX28s" 

"  '  "THIS  SECTION  INCOMPLETE  IN  PROTOTYPE  VERSION  OF  POST-DAM." 
"  "  "HIT  <  enter  >  TO  CONTINlff  :  ") 

(assert  (dvl  ■(readline))) 

(assert  (element-header  Telement-number  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (damaged-element-category  query-yes)) 

(assert  (header  2)) 

) 

(if  (or  (eq  Tcategory  MISSION-CRITICAL-EXTERIOR-VALLS) 

(eq  Tcategory  MISSION-CRITICAL-INTERIOR-WALLS) 

(eq  Tcategory  MISSION-CRITICAL-ROOFS) 

(eq  Tcategory  MISSION-CRITICAL-FLOORS) 

(eq  Tcategory  MISSION-CRITICAL-BEAMS) 

) 

then 

(if  (eq  Tresponse  4) 
thm 

(assert  (element-header  Telement-number  Tdescription 

"UNPREDICTED  DMUGE  MODE"  "UNDETERMINED")) 
(assert  (input-data  on)) 

) 

(if  (eq  Tresponse  5) 
then 

(assert  (element-header  Telement-number  Tdescription 
"ELEMENT  BEYOND  REPAIR"  "BEYOND  REPAIR")) 

(assert  (input-data  on)) 

) 
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(If  (eq  Tresponse  6) 
then 

(assert  (daiMgemode-assessfflent  ?e1ement-data  Tcategory)) 
(assert  (element-header  ?e1eRient-number  ?descr1pt1on 
Tdamage-mode  ?repair)) 

(assert  (element-number- verify  ?e1ement-data  Tcategory)) 
(assert  (header  2.5}} 

} 

(if  (eq  Tresponse  7) 
thM 

(assert  (damage-mode-assessment  7e1ament-data  Tcategory)} 
(assert  (element -header  Telement-number  Tdescription 
Tdasiage-mode  Trepair}} 

(assert  (quit  level-element  1}} 

} 

) 

(if  (eq  Tcategory  HISSION-CRITICAL-COLUNNS} 
then 

(if  (eq  Tresponse  5) 
then 

(assert  (element -header  Telement-number  Tdescription 
'UNPREOICTED  DAMAGE  MOOr  'UNDETERMINED'}} 

(assert  (input-data  on}} 

} 

(if  (eq  Tresponse  6) 
thm 

(assert  (element-header  Telement-number  Tdescription 
'ELEMENT  BEYOND  REPAIR'  'BEYOND  REPAIR")) 

(assert  (input -data  on}} 

) 

(if  (eq  Tresponse  7} 
then 

(assert  (damage-mode-assessment  Te lament -data  Tcategory}} 
(assert  (element-header  Telement-ninber  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (elament-nusber-verify  Telement-data  Tcategory}} 
(assert  (header  2.5}) 

) 

(if  (eq  Tresponse  8} 
then 

(assert  (damgemode-assessment  Telement-data  Tcategory}} 
(assert  (element-header  Telement-niMber  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (quit  level-element  1)) 


SUB-RULES  FOR  BEAM-OAMAGE-MODES-ANO-EXPEDIENT-REPAIRS 
DETERMINATION  OF  BEAN  CONNECTIONS  AND  EXPEDIENT  REPAIR  ;;;;;;;; 


;;;;;;;;  DETERMINATION  OF  BEAM  CONNECTION  TYPE  ; ; : 

(defrule  BEAN-CONNECTION-'^tKRY 

Treadyl  <-  (beam-connect ion-query  on) 

7ready2  *-  (element-header  Telament-mmdier  Tdescription 
Tdamage-mode  Trepair) 

(assessment-number  Tassesmasnt) 

m> 

(retract  Treadyl  7ready2} 

(fonast  t  'X21sX2»s»dX2s"  '  '  'DESCRIBE  CONNECTIONS  OF  BEAM  ' 
Telement-number  "  :'} 


(system  "type  c : \\postdam\\pd\\menu  7.ptr) 

(format  t  'XnX10sX20s'  "  "  "ENTER  OPTION  1  TO  7  : 

(bind  tresponse  (read)) 

(if  (>  (member  Tresponse  (mv-append  1  2  3  4  5  6  7})  0} 
then 

(fonnat  t  'X10sX17sX29s"  "  "  "INVALID  RESPONSE." 

"  HIT  <  enter  >  TO  CONTINUE.  ") 

(assert  (dvl  -(readline))) 

(assert  (element-header  ?e lament -number  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (beam-connection-query  on)) 

(assert  (header  4)) 
else 

(if  (eq  Tresponse  1) 
then 

(assert  (colunn-sccess  on)) 

(assert  (element-header  ?e lament -ninber  Tdescription 
?damage-mode  Trepair)) 

(assert  (header  4)) 

) 

(if  (eq  ?response  2) 

then  (assert  (element-header  ?e lament -number  Tdescription 
Tdamage-fflode  "KNEE-BRACE"))) 

(if  (eq  Tresponse  3) 

then  (assert  (element-header  ?e1ement-number  Tdescription 
Tdamage-mode  'REHOVE  HALL'))) 

(if  (eq  Trcsponse  4) 

then  (assert  (element-header  ?e lament -nunber  Tdescription 
?dafflage-mode  'KNEE-KIACE'))) 

(if  (eq  Tresponse  5) 

then  (assert  (element -header  ?e lament -number  Tdescription 
Tdamage-fflode  'RENOVE  HALL')}) 

(If  (eq  Tresponse  6) 

then  (assert  (element-header  ?element-number  Tdescription 
Tdamage-mode  'REMOVE  WALL")}) 

(if  (eq  Tresponse  7) 

then  (assert  (element-header  7e lament-number  Tdescription 
7damage-mode  'UNDETERMINED"}) 

(assert  (input -data  on)}) 

(if  (or  (eq  Tresponse  1) 

(eq  Tresponse  7) 

) 

then 

else 

(assert  (Input-data  on)) 

(assert  (header  4)} 

) 

) 

) 


DETERMINATION  OF  COLUm  ACCESSIBILITY  FOR  PURPOSE  Of 
DECIDING  THE  EXPEDIENT  REPAIR  STRATEGY  FOR  DAMAGED  BEAM 

(defrule  COLUWt-ACCESS 

Treadyl  <-  (column-access  on) 

7ready2  <-  (element-header  Telement-numbcr  Tdescription 
Tdamage-mode  Trepair) 

(assessment-number  Tasscssment) 

«> 

(retract  Treadyl  TreadyE) 

(fprintout  t  crlf  "IS  THERE  ACCESS  TO  ALL  (4)  SIDES  OT 
"  BOTH  COLUMNST' 

crlf  "  ENTER  <  yes  >  OR  <  no  >  :  ") 

(bind  Tresponse  (reed)} 

(If  (or  (eq  Tresponse  yes) 
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(eq  ’response  y)) 

then  (assert  (element-header  ?e1ement -number  ?descr1pt1on 
’damage-mode  'ItlNG-POST')) 

(assert  (input-data  on)] 

(assert  (header  4]) 

) 

(if  (or  (eq  ?response  no) 

(eq  ?response  n)) 

then  (assert  (element-header  ?eiement-nunber  Tdescription 
?damB9e-«ode  'MtEE-BRACE')) 

(assert  (input-data  on)) 

) 

(if  (not  (or  (eq  ?response  yes) 

(eq  Tresponse  no) 

(eq  ?response  y) 

(eq  Tresponse  n))) 
then 

(fpr intout  t  crif 

Tresponse  '  IS  NOT  A  VALID  RESPONSE.' 

'  HIT  <  enter  >  TO  CONTINUE:  ') 

(bind  Tresponse  (read)) 

(assert  (column-access  on)) 

(assert  (element -header  TeTement-nimiber  Tdescription 
Tdamage-mode  Trepair)) 

(assert  (header  4)) 

) 

) 


INPUT  DATA  AND  CHEOC 

i»ft»»fteeeestitsssafee«if«seteeettis«e*«e«a*»eeeeeee«e«efe»etasstef»»eas»f« 


INPUT  DATA 


(defrule  INPUT-DATA 

Treadyl  <-  (input -data  on) 

TreadyZ  <•  (element-header  Telement-numbcr  Tdescription 

Tdamaae-node  Treoair) 

(or  (EXTERIOR-WALL  Telament-number  Tmat  Tfloor  $T) 

(INTERIOR-WALL  Telement-nianber  Tmat  Tfloor  IT) 

(ROOF  Telement-number  Tmat  Tfloor  $?) 

(FLOOR  Telement-nunber  Tmat  Tfloor  $T) 

(COLUMN  Telement-nianber  Tmat  Tfloor  JT) 

(BEAM  Telement-nuiRwr  Tmat  Tfloor  |T) 

) 

(retract  Treadyl) 

(bind  Twidth  0) 

(bind  Theight  0) 

(bind  Tiength  0) 

(if  (or  (eq  Trepair  'KNEE-BRACE') 

(eq  Trepair  'COLUMN  SPLINr) 

(eq  Trepair  'UNDETERMINEr) 

(eq  Trepair  'BEYOND  REPAIR') 

) 

then 

else 

(fprintout  t  crif  'ENTER  APPROXIMATE  OIMEHSION(S)  (in  feet)  ' 
'OF  THE  DAMAKO  AREA;  '  crif  crif) 

) 

(if  (eq  Trepair  'PLYWOOD  COVER') 
then 

(fprintout  t  'WIDTH  -  ') 

(bind  Twidth  (read)) 

(if  (or  (eq  Tdescription  'EXTERIOR  WALL') 
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(eq  ?descr<pt1on  'INTERIOR  WALL") 

) 

then 

(fprintout  t  'HEIGHT  -  ") 

(bind  Thelght  (read)} 
else 

(fprintout  t  "LENGTH  -  ') 

(bind  Tiength  (read)) 

) 

) 

(if  (eq  Trepair  "SHOTCRETE  SEAL") 
then 

(fprintout  t  "LENGTH  OF  AREA  TO  BE  SEALED  -  ") 

(bind  Tiength  (read)] 

(fprintout  t  'WIDTH  OF  AREA  TO  BE  SEALED  -  ") 

(bind  ?Midth  (read)) 

) 

(if  (eq  Trepair  'SHOTCRETE  VERTICAL") 
then 

(fprintout  t  "WIDTH  ■  ") 

(bind  Twidth  (read)) 

(fprintout  t  "HEIGHT  ■  ") 

(bind  Theight  (read)) 

) 

(if  (eq  Trepair  "SHOTCRETE  HORIZ") 
then 

(fprintout  t  "WIDTH  -  ") 

(bind  Twidth  (read)) 

(fprintout  t  "LENGTH  -  ") 

(bind  Tiength  (read)) 

(if  (eq  Tfloor  0) 
then 
else 

(if  (eq  Tdescription  FLOOR) 
then 

(fprintout  t  'DISTANCE  BETWEEN  DAMAGED  FLOOR;  "  Tfloor 
"  AND  FLOOR  "  -(-  Tfloor  1)  '  IS  -  ") 

else 

(fprintout  t  'DISTANCE  BETWEEN  DAMAGED  ROOr 
'  AND  FLOOR  IS  -  ') 

) 

(bind  Theight  (read)) 

) 

) 

(if  (eq  Trepair  'SHORE  FLOOR') 
then 

(fprintout  t  'WIDTH  OF  CRACKED  FLOOR  AREA  -  ') 

(bind  Twidth  (read)) 

(fprintout  t  "LENGTH  OF  CRACKED  FLOOR  AREA  -  ') 

(bind  Tiength  (read)) 

(fprintout  t  'DISTANCE  BETWEEN  DAMAGED  FLOOR:  '  Tfloor 
"  AND  FLOOR  "  -(-  Tfloor  1)  "  IS  ;  ') 

(bind  Theight  (read)) 

) 

(if  (or  (eq  Trepair  'COLUMN  SHORE') 

(eq  Trepair  'REMOVE  WALL") 

) 

then 

(if  (eq  Tdescription  "BEAM") 
then 

(retract  TreadyZ) 

U*urt  (elesient-header  Telement-nunber  Tdescription 
Tdaange-eiodo  'COLUMi  SHORE')) 
(fprintout  t  'HEIGHT  FROM  FLOOR  TO  DAMAGED  BEAM  -  ') 

(bind  Theight  (read)) 
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(if  (eq  Tdescriptlon  "COLUMN') 
then 

(fprintout  t  "HEISHT  OF  DAMAGED  COLUMN  -  ') 
(bind  ?height  (reed)) 

) 

(if  (eq  ’repair  "KING-POSr) 
then 

(fprintout  t  'LENGTH  OF  DAMAGED  BEAM  •  ") 

(bind  ’length  (read)} 

) 

(if  (eq  Trepair  'SHOTCRETE  COLUMN') 
then 

(fprintout  t  'APPROXIMATE  LENGTH  ALONG' 

"  COLUMN  EFFECTED  BY  SPALLING  «  ') 
(bind  Tiength  (read)) 

(assert  ( input-data-test  ?width  Tiength  Theight)) 


INPUT  DATA  TEST 


(defrule  INPUT-OATA-TEST 

Treadyl  <-  (input-data-test  Twidth  Tiength  Theight) 

Tready2  ■«-  (data  $T) 

(element-header  Telement -number  Tdescription  Tdamage-mode  Trepair) 

K> 

(retract  Treadyl  TreadyZ) 

(bind  Terrorl  false] 

(bind  TerrorT  false) 

(bind  Terrors  false) 

(bind  TerrorA  false) 

(bind  Terrors  false) 

(bind  Terrors  false) 

(if  (not  (and  (nunberp  Twidth] 

(nisnberp  Theight) 

(numberp  Tiength) 

(>-  Twidth  0) 

(>«  Theight  0) 

(>»  Tiength  o) 

) 

) 

then 

(If  (not  (numberp  Twidth)  ] 
then  (bind  Terrorl  true) 
else  (if  (not  (>»  Twidth  0)  ) 

then  (bind  TerrorA  true)  )  ) 

(if  (not  (numberp  Theight)  ) 
then  (bind  Terrors  true) 
else  (if  (not  (>■  Theight  0)  ) 
then  (bind  Terrors  true)  )  ) 

(if  (not  (numberp  Tiength)  ] 
then  (bind  Terrors  true) 
else  (if  (not  (»•  Tiength  0)  ) 
then  (bind  TerrorB  true)  )  ) 

(fprintout  t  crlf  or If  "  •  •  ERROR  *  •") 

(if  (or  (eq  Terrorl  true) 

(eq  Terror?  true) 

(eq  Terrors  true)  ) 

then 

(if  (eq  Terrorl  true) 

then  (fprintout  t  crlf  '  WIDTH  •  '  Twidth)  ) 

(if  (eq  Terror?  true) 

then  (fprintout  t  crlf  '  HEIGHT  ■  "  Theight)  ) 
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(if  (eq  Terrors  true) 

then  (fprintout  t  crif  “■  LENGTH  «  '  ’length)  ) 
(fprintout  t  crif  '  WAS  ENTERED." 

crif  "  DIMENSION  MUST  BE" 
crif  "  A  NUMERIC."  crif) 

) 

(if  (or  (eq  TerrorA  true) 

(eq  Terrors  true) 

(eq  Terrors  true)  ) 

then 

(if  (eq  TerrorA  true) 

then  (fprintout  t  crif  "  WIDTH  »  "  Twidth)  ) 
(if  (eq  Terrors  true) 

then  (fprintout  t  crif  "  HEIGHT  ■  "  Theight)  ) 
(if  (eq  Terrors  true) 

then  (fprintout  t  crif  "  LENGTH  ■  "  T length)  ) 
(fprintout  ♦.  crif  "  WAS  ENTERED." 

crif  "  DIMENSION  MUST  BE" 
crif  "  GREATER  THAN  ZERO."  crif) 

) 

(fprintout  t  crif  "  HIT  <enter>"  crif 
"  TO  CONTINUE:  ") 

(assert  (dvl  ■(readline))) 

(assert  (header  3)) 

(assert  (data  Twidth  Theight  Tiength)) 

(assert  (input-data  on)) 
else 

(assert  (repair-strategy-assignment  on)) 

(assert  (data  Twidth  Theight  Tiength)) 

(assert  (header  S)) 

) 

) 


REPAIR  STRATEGIES 

(defrule  REPAIR-STRATE6IES-SECTI0N-1 

Treadyl  <-  (repair-strategy-assignment  on) 

TreadyZ  <-  (element-header  Telement-number  Tdescription 
Tdamage-mode  ’repair) 

(building-header  Tbidg-number  Tbidg-priority  Tbidg-description 
Tbldg-function) 

(data  Twidth  Theight  Tiength) 

(setup  Thelp  T input  Toutput  Tconm) 

(or  (EXTERIOR-WALL  Telement-number  Tmat  Tfloor  Tdiml  TdimZ  TdimS 
Tvariable) 

(INTERIOR-WALL  Telement-number  Tmat  Tfloor  Tdiml  TdimZ  Tdim3 
Tvariable) 

(ROOF  Telement-ntanber  Tmat  Tfloor  Tdiml  Tdisf  Tdim3  Tvariable) 
(FLOOR  Telement-number  Tmat  Tfloor  Tdiml  TdimZ  Tdim3  Tvariable) 

) 

(retract  Treadyl  TreadyZ) 

(if  (eq  Tinput  input-on) 
then 

(fprintout  t  crif  "IS  THE  INPUT  INFORMATION  GIVEN  ABOVE  CORRECT  T" 
crif  "ENTER  <  yes  >  OR  <  no  >  :  ") 

(bind  Tresponse  (read)} 
else 

(bind  Tresponse  yes) 

(if  (or  (eq  Tresponse  yes) 

(eq  Tresponse  y) 
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) 

then 

(fprintout  t  crlf  'ENTER  ANY  APPLICABLE  REMARKS  ABOUT  THIS  ' 

'ASSESSMENT"  crlf  "(or  hit  <  enter  >  to  continue);  ') 
(bind  Tremarks  (readline)) 

) 

(if  (or  (eq  Tresponse  no) 

(eq  Tresponse  n)  ) 
then 

(fprintout  t  crlf  crlf  "INPUT  DATA  IS  INCORRECT." 

'  HIT  <  enter  >  TO  CONTINUE.  ") 

(assert  (dvl  >(readl1ne))) 

(assert  (building-header  Tbldg-nunber  ?bldg-priority 
?b Idg-descr ipt ion  ?b Idg-f unct ion ) ) 

(assert  (element-header  0  "null"  "null"  "null")) 

(assert  (damaged-element-category  query-yes)) 

(assert  (header  2)) 

) 

(if  (or  (eq  Tresponse  yes) 

(eq  Tresponse  y) 

) 

then 

(assert  (output-files  repal red-yes)) 

(bind  Twood  0) 

(bind  ?wire  0) 

(bind  Tplywood  0) 

(bind  Tshotcrete  0) 

(b'id  Twater  0) 

(bind  Tknees  0) 

(bind  ?kit  0) 

(bind  Tglulam  0) 

(bind  Ttime  0) 

(bind  ?load  0) 

(if  (eq  Trepair  "SHOTCRETE  SEAL") 
then 

(assert  (element-header  ?e lament -number  Tdescription 
Tdamage-mode  'SHOTCRETD) 

(bind  Tshotcrete  C  (/  (*  (*  (/  6  12)  Twidth)  71ength)27)1.5)  ) 
(bind  Tester  (*  Tshotcrete  30)  ) 

(bind  Ttime  (♦  (/  Tshotcrete  1.8)  0.75)  ) 

(if  (eq  Trepair  "SHOTCRETE  VERTICAL") 
then 

(assert  (element -header  Te lament-number  Tdescription 
Tdamage-mode  "SHOTCRETD) 

(bind  Tarea  (*  Twidth  Theight)  ) 

(bind  Twood  (•  Tarea  0.417)  ) 

(bind  Twire  Tarea) 

(bind  Tplywood  (*  (♦  Twidth  2)  (+  Theight  2)  )  ) 

(bind  Tshotcrete  (*  (/  ("  (*  (/  Tdiml  12)  Theight)  Twidth) 

27)  1.5)  ) 

(bind  Twater  (*  Tshotcrete  30)  ) 

(bind  Ttime  (■*•  (/  Tshotcrete  1.8)  0.75)  ) 

(if  (eq  Trepair  "SHOTCRETE  HORIZ") 
then 

(assert  (element-header  Telement-nianber  Tdescription 
Tdamage-mode  "SHOTCRETE")) 

(bind  Tarea  (*  Twidth  Tlength)  ) 

(bind  Twood  (+(*  Tarea  0.417)  (*  (*  (/  Tlength  4)  (/  Twidth  4)  ) 
Theight)  )  ) 

(bind  Twire  Tarea) 

(bind  Tplywood  (*  (♦  Twidth  2)  (+  Tlength  2)  )  ) 

(bind  Tshotcrete  (/("(*(*(/  Tdiml  12)T length) Twidth) 1.5)27)  ) 
(bind  Twater  (*  Tshotcrete  30)  ) 
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{bind  Ttime  (+  (+  (/  ?shotcrete  1.8)  0.75)  1)  ) 


) 


(If  (eq  ?repair  'PLYWOOD  COVER”) 
then 

(assert  (element-header  ?e1ement-number  Ydescription 
Ydamagemode  Yrepair)] 

(if  (or  (eq  ?descr1ption  'EXTERIOR  WALL”) 

(eq  Tdescrtption  'INTERIOR  WALL”) 

) 

then 

(bind  Tplywood  (*  (+  Twidth  2)  (+  Theight  2))  ) 

else 

(bind  Tplywood  (*  (+  Twidth  2)  {+  Tlength  2))  ) 

) 

(bind  Ttime  .5) 

) 

(if  (eq  ’repair  'SHORE  FLOOR”) 
then 

(assert  (element-header  ?e1ement-number  Tdescription 
Tdmage-fflode  Trepair}) 

(bind  Ttime  1.0) 

(bind  ?w>od  (*  (•  {/  ’length  4)  (/  Twidth  4)  )  Theight)  ) 
(bind  Tplywo^  (•  (+  Twidth  2)  (■♦•  Tlength  2)  )  ) 

) 

(if  (eq  Trepair  'UHOETERMINEO”) 
then 


(assert  (element-header  Telement-number  Tdescription 
Tdamage-fflode  Trepair}) 

) 

(if  (eq  Trepair  'BEYOND  REPAIR”) 


then 


(assert  (element-header  Telement-number  Tdescription 
Tdamage-mode  Trepair)) 

) 

(assert  (output-files  repaired-yes}) 

(assert  (output-data  fwooct  fwfre  Tplywood  Tshotcrete  Twater  Tknees 
?kit  Tglulam  Ttime  Twidth  Theight  Tlength 
Tload  Tremarks)) 

(if  (eq  Toutput  output-on) 
then 


(assert  (header  6)) 

) 

) 

(if  (not  (or  (eq  Tresponse  yes) 
(eq  Tresponse  no) 

(eq  Tresponse  y) 

(eq  Tresponse  n)  )  ) 

then 


(fprintout  t  crlf  '  '  Tresponse  '  IS  NOT  A  VALID  RESPONSE.') 
(fprintout  t  crlf  'HIT  <  enter  >  TO  CONTINUE.') 

Ussert  (dvl  >(readl1ne))) 

(assert  (element-header  Telement-number  Tdescription 
Tdamage-mode  Tnq>a1r)} 

(assert  (repair-strategy-assignment  on)) 

(assert  (header  5)) 


(defrule  REPAIR-STRATEOIES-SECTION-2 

Treadyl  <-  (repair-strategy-assignment  on) 

Tready2  <-  (elaiaent-header  Telcment-nMfaer  Tdescription 
Tdamage-mode  Trepair) 

(building-header  Tbidg-nunber  Tbidg-priority  Tbidg-description 


?b1dg-function) 

(data  ?width  ?helght  ? length) 

(setup  ?he1p  ? Input  ?output  ?canin) 

(or  (COLUNN  ?e1enient-nuRiber  Tmat  ?f1oor  ?diiBl  ?diin2  ?dim3  7var^ab1e) 
(BEAM  7e1eBient-n»anber  Tmat  7floor  7diml  7diiB2  7dim3  7variab1e) 

) 

(retract  7readyl) 

(If  (eq  ?1nput  input-on) 
then 

(fprintout  t  crif  "IS  THE  INPUT  INFORMATION  GIVEN  ABOVE  CORRECT  7' 
crif  "ENTER  <  yes  >  OR  <  no  >  ;  ') 

(bind  7response  (read)) 
else 

(bind  7response  yes) 

) 

(if  (or  (eq  7response  yes) 

(eq  Tresponse  y) 

) 

then 

(fprintout  t  crif  "ENTER  ANY  APPLICABLE  REMARKS  ABOUT  THIS  ' 

"ASSESSMENT"  crif  "(or  hit  <  enter  »  to  continue):  ") 
(bind  7remarks  (readline)) 

) 

(if  (or  (eq  Tresponse  no) 

(eq  Tresponse  n)  ) 
then 

(fprintout  t  crif  crif  "INPUT  DATA  IS  INCORRECT." 

crif  "HIT  <  enter  >  TO  CONTINUE.  ") 

(assert  (dvl  >(read1ine))) 

(assert  (building-header  Tbldg-niasber  ?b1dg-priority 
?b1dg-description  7b1dg-f unction)) 

(assert  (clement-header  0  "null"  "null"  "null")) 

(assert  (damaged-element -category  query-yes)) 

(assert  (header  2)) 

) 

(if  (or  (eq  7response  yes) 

(eq  Tresponse  y) 

) 

then 

(assert  (output-files  repai red-yes)) 

(bind  7wood  0) 

(bind  7eire  0) 

(bind  Tplyeood  0) 

(bind  Tshotcrete  0) 

(bind  Tester  0) 

(bind  Tknees  0) 

(bind  7kit  0) 

(bind  Tglulam  0) 

(bind  7time  0) 

(bind  71oad  0) 

(if  (eq  Trepair  "SHOTCRETE  COLUWT) 
then 

(retract  7ready2) 

(assert  (element-header  ?e lament -number  Tdescription 
Tdamage-mode  "SHOTCRETE")) 

(bind  Teood  (/  (•«■  7diml  7dim2)  3)  ) 

(bind  7plyeood  (*  (*  (/  (♦  7diml  7dim2)  12)  (♦  7height  2)  )  2)  ) 
(bind  7shotcrete  (*  (/  (*  (*  (/  7diml  12)  (/  7dim2  12))  7 length) 
Zn  1.5)  ) 

(bind  7eater  (*  7shotcrete  30)  ) 

(bind  7tiM  (‘T  (/  7shotcretc  l.S)  0.75)  ) 

) 

(if  (eq  7repa1r  'COLUMN  SPLIND 
then 
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) 


(If  (<»  fvariable  100) 
then 

{bind  ?kit  1) 

else 

(if  (>»  Tvariable  200) 
then 

(bind  ?kit  3} 
else 

(bind  7k1t  2) 

) 

) 

(bind  ’time  .5) 

) 

(if  (eq  ?repair  'COLUHM  SHORE') 
then 

(bind  ?g1u1affl  ?height) 

(if  (eq  ?description  'COLUMN') 
then 

(bind  Ttime  1.0) 
else 

(retract  ?ready2) 

(bind  7tiffle  2.0) 

(assert  (element-header  ?element-nijnber  7description 

7damage-iiiode  'REMOVE  HALL.  COLUMN  SHORE')) 


(if  (eq  7repair  'KING-POST') 
then 

(bind  ?wood  16.0) 

(bind  ?t(lre  (*  (+  71ength  20)  l.S)  ) 

(bind  Ttime  1.0) 

) 

(if  (eq  Trepair  'KNEE-BRACE') 
then 

(bind  7knees  2) 

(bind  ?time  1.0) 

) 

(assert  (cutput-f 1 les  repai red-yes]) 

(assert  (output-data  7Mood  ?wire  7p1ywood  Tshotcrete  7Hater  Tknees 
?kit  Tglulam  ?time  7width  Theight  71ength 
7  load  7remarks)) 

(if  (eq  Toutput  output-on) 
then 

(assert  (header  6)) 

) 

) 

(if  (not  (or  (eq  7response  yes) 

(eq  Tresponse  no) 

(eq  7response  y) 

(eq  7rasponse  n)  )  ) 

then 

(fprintout  t  crif  '  '  7respons#  '  IS  NOT  A  VALID  RESPONSE.') 
(fprintout  t  crIf  'HIT  <  enter  >  TO  CONTINUE.') 

(assert  (dvl  >(read1inc))} 

(assert  (element -header  Telement-number  Tdescription 
7damage-«ode  Trapair)) 

(assert  (repair-strategy-assignment  on)) 

(assert  (header  5)} 


OUTPUT  TO  DATA  FILES 

(defrule  OUTPUT-TO-FILES 
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?readyl  <-  (output-files  ?repaired) 

?ready2  <-  (assessment-ntanber  7a5ses3mnt} 

(building-header  tbldg-number  ?bldg-priority  ?bldg-description 
7b Idg-f unction) 

(eleisent-header  ?elontent-nuniber  7description  ?damage*«ode  ?repair) 
(output -data  7wQod  ?w1re  Tplywood  ?shatcrete  ?Mter  ?knees 

7kit  7g1ulafli  ?time  ?width  ?he1ght  ’length  ?load  7remarks) 
(setup  ’help  ?input  ?output  7camn) 

?ready3  <-  (carrage-return  ?lines  tline-feed) 

7ready4  <-  (dcc-files  ?status} 


(retract  ’ready!  ?ready3  ?ready4) 

(assert  (dcc-files  yes)) 

(if  (eq  ?repaired  repaired-no) 
then 

(fprintout  t  crlf  crlf  'BUILDING  "  7bldg-nunber  "  HAS  BEEN' 

"  DESIGNATED  AS  BEING  BEYOND  EXPEDIENT  REPAIR.' 
crlf  'NO  KANPOWER  OR  EQUIPMENT  WILL  BE  SCHEDULED.' 
crlf  crlf  'HIT  <  enter  >  TO  CONTINUE:  ") 

(assert  (dvi  •{readline))) 

(fprintout  tal  '  Damage  to  building  number  '  ?bldg-number 
'  places  it  beyond  expedient  repair.'  crlf 
'  No  manpower  or  equipment  will  be  scheduled.' 
crlf  crlf  crlf) 

(assert  (quit  level-building  1)) 

) 

(if  (eq  Trepaired  repaired-ycs) 
then 


(If  (and  (eq  ?input  Input-on) 

(eq  Toutput  output -on) 

) 

then 

(fprintout  t  'POST-DAM  HAS  SELECTED  THE  ABOVE  REPAIR  STRATEGY.' 

crlf  crlf  'HIT  <  enter  >  TO  CONTINUE.  ') 

(assert  (dvl  ■(readline))) 

) 

(if  (>  Tassessment  1) 
then 


(bind  ?11ne-feed  (-  Tlines  ?llne-feed)) 

(while  (>  711ne-feed  0)  do 
(fprintout  tal  crlf) 

(bind  711ne-feed  {-  ?llne-feed  1)) 

) 

(format  tal  'XnXnX56sXnX45sX5dXnX5ZsXnX45sXn' 
'POST-AHAaC  DAMAGE  ASSESSMENT  OT 
'FACILITY  NUMER'  Tbldg-number 
'BITBURG  AIR  BASE.  GERMANT 
'(continue)') 

(fprintout  tal  ' 


(fprintout  tal  crlf  crlf  crlf) 
(bind  711ne-feed  (♦  ?11ne-feed  9)) 


) 

(format  tal  'X33sX-40dXn' 

'Damage  Assessment  NiMber  :  '  7sssessment) 
(format  tal  'XnXSBsXnXn'  'A.)  General  Element  Information") 
(format  tal  'X32sX-40dXnX32sX-40sXnX32sX-40sXn' 


'Element  Number 


7e lament -number 


'Element  Description  : 

(bind  7 line-feed  (♦  711ne-feed  7)) 
(If  (>  7wldth  0) 
than 

(format  tal  'X32aX-4.1fX4sXn' 
'Damage  Width 


7deBcrlptlon 

fdamage-mode) 


7wldth  '  ft.") 


) 
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(bind  ?line-feed  (+  ?1ine-feed  1)) 

) 

(if  {>  ?height  0) 
then 

(format  tal  ''X32sX-4.1fX45Xn‘' 

"Oamage  Height  "  Theight  "  ft.") 

(bind  ?1ine-feed  (+  ?1ine-feed  1)) 

) 

(if  (>  Tlength  0) 
then 

(format  tal  "X3ZsX-4.1fX4sXn' 

"Oamage  Length  "  ? length  '  ft.") 

(bind  71ine-feed  (+  71ine-feed  1)) 

) 

(format  tal  "X32sX'40sXn" 

"Repair  Strategy  "  ?repair) 

(format  tal  "XnX36sXnXn'  "B.)  Repair  Strategy  Information") 
(format  tal  "X33sXnXn"  "1.)  Required  Materials  :") 

(bind  71ine-feed  {+  71ine-feed  6)) 

(if  (>  7«*ood  0) 
then 

(bind  7wood*quantity  {*  1  (trunc  (/  7wood  16)))) 

(format  tal  "X35sX5.1fX-20sXn" 

"Grade  A  2x4  :  "  ?i«x>d  "  ft.") 

(format  ta2  "  \"Xd\"  \"2x4  16ft\"  \"Xd\"  \"ea\"  Xn" 
?assessment  Zwood-quantity) 

(bind  ?line-feed  (+  71ine-feed  1)) 

) 

(if  (>  7plyviR]od  0) 
then 

(bind  ?plywood-quantity  (+  1  (trunc  (/  Tplywood  32)))) 
(format  tal  "X3SsX5.?.fX-20sXn" 

"Grade  A  Plywood  :  "  7plywood  "  aq.  ft.") 
(format  ta2  "  \"Xd\"  \"plywood  4x8  .5in\"  \"Xd\"  \"ea\"  Xn" 
?assessment  ?plywood'quantity) 

(bind  71ine-feed  (♦  ?llne-feed  1)) 

) 

(if  (>  ?wire  0) 
then 

(format  tal  "X35sX5.1fX-20sXn" 

"Mire  Mesh  "  7w<re  "  sq.  ft.") 

(format  ta2  "  \"Xd\"  \"wire  mesh\"  \"X6.1f\"  \"$qf\"  Xn" 
7assessment  ?wire) 

(bind  71ine-feed  (•*■  71ine-feed  1)) 

) 

(if  (»  ?shotcrete  0) 
then 

(format  tal  "X35sX5.1fX-20sXn" 

"Shotcrete  Material  :  *  7shotcrete  "  cubic  yards") 
(format  ta2  "  \"Xd\"  \"shotcrete\"  \"X6.1f\"  \"cy\"  Xn" 
7assessment  7shotcrete} 

(bind  71ine-feed  (■♦■  71ine-feed  1)) 

) 

(if  (>  7water  0) 
then 

(format  tal  "X35sX5.1fX-20sXn" 

"Mater  :  "  7water  "  gallons") 

(format  taZ  "  \"Xd\"  \"water\"  \"X6.1f\"  \"gal\"  Xn" 
7as$essment  7water) 

(bind  7Hne-feed  (+  711ne-feed  1)) 

) 

(if  (>  ?k1t  0) 
then 

(format  tal  'X35sXdXn" 

'Column  Splint  Kit  :  "  7klt) 
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(fomat  taZ  '  V'XdX*'  X'eolumn  splintv”  V'Xd\"  \”ea\'  Xn" 
Zassessinent  ?kit) 

(bind  ?11ne-feed  (+  Zline-feed  1)) 

) 

(if  (>  ?g1ulam  0) 
then 

(format  tal  'X35sX5.1fX-20sXn' 

"Glulam  Column  :  "  Zglulam  '  feet') 

(format  taZ  "  \'Xd\"  V'glulam  coltaim  12x12  10ft\'  \'1\'  \"ea\' 
Xn'  ?assessment) 

(bind  ? line-feed  (+  ? line-feed  1)) 

) 

(if  (>  ?knees  0) 
then 

(format  tal  'X35sX5.1fX-20sXn' 

'Knee  Braces  '  ?knees  '  each') 

(format  ta2  '  V'XdX'  \'knce  braceV'  \'2\'  \'ea\'  Xn' 
?assessment) 

(bind  ?1ine-feed  {♦  ?line-feed  1)) 

) 

(if  (eq  ?repair  'KIHG-POSr) 
then 

(format  tal  'X35sX-20sXn' 

'Turnbuckle  '  '  1.0  each') 

(format  ta2 

'  \'Xd\'  \'turnbuck1e\'  \"1\'  \'ea\'  Xn' 

Zassessment) 

(bind  ?11ne-feed  (■*■  ?Hne-feed  1)) 

) 

(if  (eq  Ztime  0) 
then 
else 

(bind  Ztempl  (trunc  (♦  Ztime  0))) 

(bind  ?ten()2  {*  ftempl  1)} 

(bind  ?temp2  (-  ?temp2  Ztime)} 

(if  {>  ?temp2  0.75) 

then  (bind  ?time  (♦  Ztempl  0.25)) 
else  (if  (>  7temp2  0.50) 

then  (bind  ?time  (-r  Ztempl  0.50)) 
else  (if  {>  ?tamp2  0.25) 

then  (bind  ?tfme  (+  Ttempl  0.75)) 
else  (if  (>  ?temp2  0.00) 

then  (bind  ?time  (+  Ztempl  i.OO)) 
else  (bind  Ttime  (*  Ztenpl  0)) 

)  )  )  )  ) 

(format  tal  'XnX33sXnXn"  '2.)  Required  Equipment  ;  ) 

(bind  Tline-feed  (•*■  711ne-feed  3)) 

(if  (eq  ?repair  'SHOTCRETE') 
thOT 

(fonsat  tal  'X46sXlsXn' 

'Shotcrete  Unit  w/  Accessories  :  '  '1'  ) 

(format  ta3 

'  \'Xd\'  \'sc  machinev'  \'l\'  \'ea\'  \'X6.2f\'  Xn' 
fassesaamnt  ?time) 

(bind  711ne-feed  (♦  711ne-feed  1)) 

(if  (or  (eq  Zrepair  'SHOTCRETT) 

(eq  Zrepair  'PLYWOOD  COVER') 

(eq  Zrepair  'SHORE  FLOOR') 

(eq  Zrepair  'COLUWi  SHORE') 

) 

then 

(if  (eq  Zdanage-eode  'EXCESSIVE  CRACKING') 
then 

else 
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(format  tal  "X46siils5tn‘' 

"Ramset  w/  Stud  '  "2"  ) 

(format  ta3 

'  \'Xd\"  \'ramset\"  \'2\'  \"ea\'  \'X6.2f\"  Xn" 
?8sses»«ent  ?time) 

(bind  ?11ne-feed  (+  ?line-feed  1)) 

) 

) 

(if  (or  (eq  ?repa1r  "SHORE  FLOOR") 

(eq  ?repair  "COLUWI  SHORE") 

) 

then 

(format  tal  "X46sXlsXn' 

"Shoring  Jack  '  '1'  ) 

(format  ta3 

"  \"Xd\"  \"shor1ng  jack\"  \'1\'  \"ea\"  \"X6.2f\'  Xn' 
?assessinent  ?time) 

(bind  ’line-feed  (+  ?line-feed  1)) 

(if  (eq  ?repair  "COLUMN  SHORE") 
then 

(format  tal  'X46sXlsXn' 

"Chain  saw  '  '1'  ) 

(format  ta3 

'  \"Xd\'  \"chainsaw\'  \"1\"  \"ea\'  \'X6.2f\"  Xn' 
?asse$sinent  ?ttine) 

(bind  ?11ne-feed  (+  71ine-feed  1)) 

) 

) 

(format  tal  "XnX3asXnXn"  "3.)  Estimated  Manpower/Time  :") 

(if  (eq  ?repair  "BEYOND  REPAIR") 
then 
else 

(format  tal  "X34sXlsXn" 

"Repair  Team(s)  :  "  “1'  ) 

(format  tal  "X34sX5.2fXn' 

'Repair  Team  Hours  :  "  ?time) 

(format  ta3  '  \"Xd\"  \"repair  team\"  X'lX"  \'ea\"  \"X6.2f\"  Xn" 
Tassessment  ?time) 

) 

(format  tal  'XnX23sXnXn"  "4.)  Remarks  :") 

(format  tal  "X13sX-60sXn"  "  '  Traaarks) 

(format  tal  "XnXSlsXnXn"  "5.)  Repair  Schedule  :") 

(format  tal  "XI3sX16sXnXI3sX16sXn"  "  "  'Start  Repair  :  " 

"  "  "Finish  Repair  :  ") 

(bind  ?line-feed  (+  ?line-feed  IS)) 

(assert  (carrage-return  Tlines  71ine-feed)) 

(assert  (damaged-element-category  query-yes)) 

(bind  7va1ue  {*  7assessment  1)) 

(retract  ?ready2) 

(assert  (assessment-number  7va1ue)) 

(assert  (header  2)) 

} 

) 


I»»J»»»esf#»*fJ#f**e»*fJae#**5Jeeaees»eee»saee#eee»ee»eseeeeeef##eees*efeie* 

::::::::  QUIT 

afeWetettesteavfeeeffSpWefieeeeeeeseaWpeeseeeeeeeeaeeefeeeeeeeettvtetssas 

(defrule  QUIT 

7readyl  <-  (quit  7 level  7phaac) 

(building-header  Tbldg-number  7b1dg-pr1orfty  Tbldg-descrtption 
?b1dg-function) 

7rcady2  <-  (7card-number  facility-header  7bldg-nisri>er  7facility-priority 
Tfacility-function  Tfacility-description  7assessed) 

(setup  7hc)p  7 input  7output  7coan) 
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(dcc-ffles  ?ststus) 


(retract  ?readyl) 

(if  (eq  ?1eve1  level-shell) 
then 

(if  (eq  ?coii«n  coem-on) 
then 

(if  (eq  ?$tatus  yes) 
then 

(system  'erase  c:\\postdaiii\\dcc\\flle$.dcc  ) 
(system  'els") 

(system  "type  c;\\postdam\\pd\\co«iii_2.pcr) 
(format  t  "XnXnX10sX34s' 

"  "  "HIT  <  enter  >  TO  TRANSMIT  FILES 


(exit) 

else 

(if  (eq  Tlevel  level-building) 
then 

(retract  ?ready2) 

(if  (eq  Tphase  1) 
then 

(fomiat  tal  'XnX18sX38sX5dX18s' 
<>•**«*•*•**••••*•  • 


"EHO  OF  OUTPUT  DATA  FOR  BUILDING  NUMBER' 
Tbldg-nunber 

(close  tal) 

(close  ta2) 

(close  ta3) 

) 

(bind  Trepeat  no) 

( if  (eq  Tconin  conm-on) 
then 

(if  (eq  Tstatus  yes) 
then 

(If  (eq  Tphase  1) 
then 

(system  "del  c:\\postdam\\dcc\\f lies. dec") 

) 

(system  "els") 

(system  "type  c:\\postdam\\pd\\con»_l.pd") 

(fonnat  t  'XnXnX10sX23s' 

"  "  'SELECT  OPTION  1  TO  3  ;  ") 

(bind  Tresponse  (read)) 

(If  (eq  Tresponse  1) 
thm 

(system  "del  c:\\postdam\\dcc\\retum.com") 

(exit) 

else 

(If  (eq  Tresponse  2} 
then 
(exit) 

else 

(If  (eq  Tresponse  3) 
thm 

(open  "c:\\postdam\\dcc\\f lies. dec"  ca2  "•»") 

(close  ca2) 

else 

(foneat  t  'Xl0sX17sX29s' 

'  "  "INVALID  RESPONSE." 

'  HIT  <  enter  >  TO  CONTINUE.  ') 
(assert  (dvl  ■(readline))) 

(bind  Trepeat  yes) 
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(assert  (quit  ?1eve1  2}) 

(assert  (Tcard-number  faci lity- header 
?b1dg-nt«nber  Tfaclltty-prlority 
?f ac i 1 1 ty-f unc t ion  ?f ac ility-description 
?assessed)) 

)  )  )  )  ) 

(if  (eq  Trepeat  yes) 
then 
else 

(assert  (?card-nuniber  faci11ty*header  ?b1dg-nuinber 
Tfacility-priority  ?faci lity-function 
?faci11ty-description  YES)) 

(assert  (reset-facts- 1ist-and-reinitia1ize)) 

) 

else 

(assert  (damaged-element-category  query-yes)) 

(assert  (header  2)) 

) 

) 

) 


RESET  FACTS  LIST 


(defrule  RESET-FACTS-LIST 

(and  Treadyl  <-  (reset-facts-list-and-reinitlalize) 

(or  ?ready2  <-  (building-header  Tbldg-nusber  Tbldg-priority 
?b1dg-description  7b Idg-f unction) 
?ready2  <-  (HISSION-CRITICAL-EXTERIOR-WALLS  $7) 

7ready2  <-  (MISSIOM-CRITICAL-INTERIOR-WALLS  $7) 

?ready2  <-  (MISSION-CRITICAL-ROOFS  I?) 

7ready2  <-  (MISSION-CRITICAL-FLOORS  $7) 

7ready2  <-  (MISSION-CRITICAL-BEAMS  J7) 

7ready2  <-  (MISSION-CRITICAL-COLUMNS  $7) 

?ready2  <-  (MISSION-CRITICAL-DOORS  $7) 

7ready2  <-  (MISSION-CRITICAL-MISCELLANEOUS  $7) 

7ready2  <-  (EXTERIOR-WALL  |7) 

?ready2  <-  (INTERIOR-WALL  $7) 

7ready2  <-  (ROOF  $7) 

7ready2  <-  (FLOOR  $7) 

7rcady2  <-  (BEAM  $7) 

7ready2  <-  (COLUMN  17) 

7ready2  <-  (DOOR  $7) 

7re»Hy2  <-  (MISCELLANEOUS  S7) 

7ready2  <-  (assessment -number  7) 

7ready2  <-  (building-header  $7) 

7ready2  <-  (element -header  $7) 

7ready2  <-  (data  $?) 

7rcady2  <-  (output-data  J7) 

7readj^  <-  (carrage-return  7 lines  7Hne-feed) 

) 

) 

m> 

(retract  7ready2) 

) 


REINITIALIZE 


(defrule  REINITIALIZE 

7readyl  <-  {reset-facts-11st-and-re1nltia1ize) 
(setup  Thelp  7 input  7cHitput  7cann) 
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(not  (building-header  ?bldg-nuniber  ?bldg-priority 

?b1dg-descr1pt1on  ?bldg-f unction)  ) 
(not  (MISSION-CRITICAL-EXTERIOR-WALLS  J?)  ) 

(not  (MISSION-CRITICAL-INTERIOR-WALLS  $?)  ) 

(not  (MISSION-CRITICAL -ROOFS  $?)  ) 

(not  {MISSION-CRITICAL-FLOORS  $?)  ) 

(not  (MISSION-CRITICAL -BEAMS  $?)  ) 

(not  (MISSION-CRITICAL-COLUHNS  $?)  ] 

(not  (MISSION-CRITiaL-OOORS  J?)  ) 

(not  (MISSION-CRITICAL -MISCELLANEOUS  S?)  ) 

(not  (EXTERIOR-WALL  $?}  } 

(not  (INTERIOR-WALL  $?)  } 

(not  (ROOF  $?)  ) 

(not  (FLOOR  $?)  ) 

(not  (BEAM  I?)  ) 

(not  (COLUMN  |?)  ) 

(not  (DOOR  $?)  ) 

(not  (MISCELLANEOUS  $?}  ) 

(not  (assessnent-number  ?)  ) 

(not  (building-header  S?)  ) 

(not  (element-header  $?)  ) 

(not  (data  $?)  ) 

(not  (output-data  S?)  ) 

(not  (carrage-retum  ? lines  ? line-feed)  ) 

(retract  Treadyl] 

(assert  (building-header  0  0  "null"  "null")) 

(assert  (element-header  0  "null"  "null"  "null")) 
(assert  (assessment-number  1)) 

(assert  (data  000)) 

(assert  (carrage-return  67  0)) 

(assert  (trigger  damaged-bldg-id  1)) 

(assert  (header  I)) 


HEADERS 


(defrule  HEADER 

Tready  <-  (header  Tlevel) 

(building-header  Tbldg-number  ?bldg-pr1ority  Tbidg-description 
?bl^-function) 

(assessment -nimber  Tassessment) 

(element-header  Telement-nusber  Tdescription  ?damage-mode  Trepair) 
(data  TMidth  Theight  Tiength) 

(setup  Thelp  Tinput  Toutput  ?comm) 


(retract  Tready) 

(system  "els") 

(if  (eq  Tinput  input-on) 
then 


(fprintout  t 


(format  t  "XnXBsXBAsXZTs"  "POST-OAM"  "*") 

(if  {>■  Tlevel  2) 
then 

(fprintout  t  crlf  "  **••**!.•**•**************•****- 

(format  t  'XnX8sX61sXnX8sX13sX48s' 

*•"  "•*  "INPUT  DATA:"  "*") 


(format  t  'XnX8sX5tX-27sX2sX-26dXis' 

'  'BUILOING  NUWER"  "  Tbldg-number  "*") 
(if  (-  Tlevel  2.5) 
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then 

(format  t  'XnX8siijsX-27sX2sX-26sXls' 

"  '  "ELEMENT  DESCRIPTION"  *  ?descript1on  "*') 

(If  (>-  ? level  3) 
then 

(format  t  'XnX8sX5sX-27sX2.>-26<«lsXnX8sX5sX*27sX2sS-26sXls' 
"  "ELEMENT  NlMStR"  ":  "  Telement-number 
"*"  "  "  "ELEMENT  DESCRIPTION'  '  ?description  "*') 

( if  (>»  ’level  4) 
then 

(format  t  "XnX8sX5sX-27sX2sX-26sXls" 

- -  "DAMAGE  MODE"  ":  "  ’damage-mode  "*") 

( if  (>«  Tlevel  5) 
then 

(if  (>  ?*»1dth  0) 
then 

(format  t  "XnX8sX5sX-27sX2sX-26.1fXls" 

- WIDTH"  ":  '  ’width  "*') 

(if  (»  Theight  0) 
then 

(format  t  "XnX8sX5sX-27sX2sX-26.1fXls" 

"  '  "HEIGHT"  ":  "  ’height  "•") 

(if  (>  ?length  0) 
then 

(format  t  "XnX8sX5sX-27sX2sX-26.1fXls" 

. LENGTH"  "  ’length  "•") 

) 

) 

) 

(format  t  "XnX8sX61sXnXasX2sX-58sXls" 

- - GENERAL  INFORMATION:'  "*") 

(format  t  "XnX8sX5sX-27sX2$X-26sXl8XnX8sX5sX-27sX28X-26sXl$" 

- - BUILDING  DESCRIPTION"  ":  "  Tbldg-description 

'  "BUILDING  FUNCTION"  '  Tbldg-function 
(if  (>»  ’level  2) 
then 

(format  t  "XnX8sX58X-278X2sX-26dXls' 

'  'DAMAGE  ASSESSMENT  NUWER"  '  ?a8se88ment  "*") 

) 

) 

(if  (>»  Tlevel  6) 
then 

(format  t  "XnXBaXGlsXnXBaXasX-SBaXls" 

- OUTPUT  DATA:"  "•") 

(format  t  "XnXBaXSsX-ETaXZsX-aGsXla" 

^  "  "REPAIR  STRATECr  ":  "  Trepair  "*") 

(fprintout  t  crlf  "  ••**•*•****••*••••*••**»••«*•»*- 

(fprintout  t  crlf) 

else 

) 

) 


SETUP . 


(defrule  SETlff 

Treadyl  <-  (setup  aaxiify  TteaR)) 

TreedyZ  <-  (setup  ?he1p  Tinput  Toutput  Tcoam) 
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(retract  ?readyl  ?ready2) 

(if  (eq  ?heip  help-on) 
then 

(bind  ?uhelp  ON) 
else 

(bind  7uheip  OFF) 

(if  (eq  ?input  input-on) 
then 

(bind  ?uinput  ON) 
else 

(bind  ?uinput  OFF) 

(if  (eq  ?output  output-on) 
then" 

(bind  ’uoutput  ON) 

else 

(bind  Tuoutput  OFF) 

(if  (eq  ?conin  conn-on) 
then 

(bind  Tuconti  ON) 

else 

(bind  ?uconin  OFF) 

) 

(system  'ds') 

(if  (eq  ?temp  1) 
then 

(system  'type  c;\\postdam\\pd\\setup_l.p<r) 

(format  t  '*nXnX53s"  'HIT  <  enter  >  TO  CONTINUE  :  ) 

(assert  (dvl  ■( readline))) 

(assert  (setup  ?help  Tinput  ?output  Tcomm)) 

(assert  (setup  modify  2)) 
else 

(system  'type  c:\\postdam\\pd\\8etup_2.p<r) 

(format  t 

'XeasXnXn' 

'POST-OAH  UTILITIES  ARE  CONFISURED  AS  FOLLOWS  :  ) 


(format  t  , 

'X53SX-1 0sXnX53sX-l 0sXnX53sX-10sXnX53sX-l 0sXnX53s 


'(1.)  HELP  OPTION 
'(2.)  INPUT  TO  SCREEN  OPTION 
'(3.)  OUTPUT  TO  SCREEN  OPTION 
'(4.)  FILE  TR.'WISFER  TO  OCC 
'(S.)  QUIT  HOOIFICATIONS 
(format  t  'XnXnXSBs'  'HOOIFY  OPTION 
(bind  ’response  (read)) 

(If  (eq  Tresponse  5) 


'  Tuhelp 
'  ?u Input 
'  Tuoutput 
'  Tuconin 
') 

1  TO  4  (OR  5  TO  QUIT) 


(assert  (setup  ?he1p  Tinput  Toutput  Tconiii)) 
Uesert  (trigger  damaged-bldg-id  1)) 

(assert  (header  1)) 


else 

(if  (eq  Tresponse  1) 
thm 

(if  (eq  Tuhelp  ON) 
thm 

(bind  Thelp  help-off) 
else 

(bind  Thelp  help-on) 

) 

(if  (eq  Tresponse  2) 
then 

(if  (eq  Tuinput  ON) 
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then 

(bind  ? input  input-off) 
else 

(bind  ?input  input-on) 

) 

) 

{if  (eq  ?response  3) 
then 

(if  (eq  Tuoutput  ON) 
then 

(bind  ?output  output-off) 
else 

(bind  ?output  output-on) 

) 

) 

(if  (eq  ?response  <) 
then 

(If  (eq  ?ucanin  ON] 
then 

(bind  ?C0Bin  conw-off) 
else 

(bind  ?conin  cotm-on) 

) 

) 

(assert  (setup  ?help  ? input  foutput  ?com)) 
Assert  (setup  modify  2)] 

) 

) 

) 


HELP 


(defrulc  HELP_1 

?readyl  <-  (utility  help-1  ?number-of-facnity-cards  7card-number) 
(?card-number  facility-header  ?fac111ty-number  7fac111ty-pr1orlty 
7fac111ty-functlon  7facl11ty-descrlpt1on  7a5$essed) 

■> 

(retract  ’ready I ) 

(if  (eq  ?card-number  1) 
then 

(system  "els") 

(system  "type  c;\\postdam\\pd\\help  l.pd") 

) 

(format  t  "XnX8dXlldX20sX25sX10s" 

7facillty-number  7fac111ty-prlorlty  7facllity-f unction 
?fac111ty-descript1on  7assessed) 

(if  (eq  ?card-number  7number-of-fac11Uy-cards) 
then 

(fonnat  t  "*nXn*nX50s" 

"SELECT  FACILITY  NUH8ER  TO  BE  ASSESSED  :  ") 

(assert  (trigger  damaged-bldg-ld  2}} 
else 

(bind  7card-number  (■*•  7card-number  1)) 

(assert  (utility  heip-1  ?number-of-faci1ity-cards  7card-nim*er)) 

) 

) 


THE  END  OF  POES 
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APPENDIX  B 


PD. BAT  SOURCE  CODE 


echo  off 
goto  1ab)el00 
rent  CONHENTS 


PROGRAM  TITLE 
PROGRAM  PURPOSE 


PROOIAM  VERSION 
DEVELOPED  BY 


PD. BAT 

DOS  BATCH  JOB  RESPONSIBLE  FOR  COMPILATION  ANO 
EXECUTION  OF  POST-DAM  EXPERT  SYSTEM  (POES).  ALSO 
RESPONSIBLE  FOR  PDES  OUTPUT  FILE  MANAGEMENT  ANO 
EXECUTION  OF  CROSSTALK  MK.4  COMMUNICATION 
SYSTEM  OCC.XTS. 

1.02  (910215) 

APPLIED  RESEARCH  ASSOCIATES,  INC. 

GULF  COAST  DIVISION. 


MODIFICATION  RECORD  ; 


VERSION  OATE  RELEASE  PROGRAMMER 


MODIFICATIONS 


1.01  12/11/90  JEFF  HOWARO  *  ORIGINAL  VERSION 

1.02  02/15/91  JEFF  HOWARO  *  HEADER  CHANGES 

•  FILE  TRANSFER  CAPABILITY  ADDED 

*  CHANGES  IN  PDES  SUB-DIRECTORIES 


:1ab1elOO 

if  exist  c:\postdam\*.out  goto  1ab1e99 
goto  1ab1e89 
: Iab1e99 

del  c;\postdaffl\*.out 
cIs 

:1ab1e89 

If  exist  c:\postdam\*.mat  goto  1able98 

goto  1ab1e88 

:1ab1e9B 

del  c : XpostdamX* .mat 
els 

: 1ab1e88 

if  exist  c:\postdam\*.eqp  goto  1ab1e97 
goto  lableB? 

; 1able97 

del  c:\postdain\*.eqp 
cIs 

:  Tables? 

if  exist  c:\postdam\dcc\*. out  goto  1ab1e96 
goto  lableBG 
: Iab1e96 

del  c:\postdam\dcc\*. out 
cIs 

: TableBB 

if  exist  c:\postdam\dcc\* .mat  goto  1ab1e95 
goto  lableSS 
; 1ab1e95 

de)  c:\postdam\dcc\*. mat 
cIs 

: Tab less 

if  exist  c;\postdam\dcc\*.eqp  goto  1ab1e94 

goto  1ab1e64 

;1able94 

del  c:\postdamVdcc\*.mat 
cIs 

:1ab1a84 

:Iab7el 
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cIs 

type  c :  \postdani\pd\pdes_on .  pd 
clips  -f  c:\postdam\bat\pd.run 
cIs 

If  exist  c:\postdani\*.out  goto  1able79 

goto  1ab1e69 

:lable79 

copy  c:\postdam\*.out  c;\postdam\dcc\*.* 
copy  c : \postdam\* . out  c:\postdam\pd_f11es\*.* 
del  c :  \postdain\* .  out 
els 

: lable69 

if  exist  c:\postdaiii\*.i!iat  goto  1ab1e7a 
goto  lable66 
: lab 1878 

copy  c:\postdam\*.inat  c;\postdam\dcc\*.* 
copy  c;\postdam\*.iMt  c:\postdani\pd_files\*.* 
del  c:\postdam\*.mat 
els 

: 1ab1e68 

if  exist  c:\postdani\*.eqp  goto  1able77 
goto  1ab1e67 
: Iab1e77 

copy  c : VpostdamX* . eqp  c:\postdani\dcc\*.* 
copy  c:\postdani\*.eqp  c:\postdain\pd_f11es\*.* 
del  c:\postdani\*.eqp 
cIs 

:lable67 

cIs 

if  not  exist  c:\postdani\dcc\fi1es.dcc  goto  :1able2 

goto  : 1ab1e3 

:1ab1e2 

c:\xtalk4\xtalk  call  dec 
if  exist  c:\postdain\dcc\*. out  goto  lable59 
goto  1ab1e49 
:  1abTeS9 

del  c;\postdam\dcc\*.out 
cIs 

: 1able49 

if  exist  c:\postdam\dcc\*. mat  goto  1able58 
goto  1ab1e4B 
: lableSS 

del  c:\postdam\ttec\*. mat 
cIs 

: 1ab1e48 

if  exist  c:\postdam\dcc\*,eqp  goto  1ab1e57 
goto  Iab1e47 
: lableST 

del  c:\postdam\dcc\*.eqp 
els 

: Iab1e47 

if  not  exist  c;\postdam\dcc\return.com  goto  ; labial 

:1ab1e3 

els 

type  c:\postdaffl\pd\1ogoff.pd 
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echo  off 
goto  lablelOO 
rem  COtWENTS 


:  PROeRAM  TITLE 

PD  SYS. BAT 

;  PROGRAM  PURPOSE 

DOS  BATCH  JOB  RESPONSIBLE  FOR  SETTING-UP  THE 
CONFIG.SYS  AND  AUTOEXEC.BAT  FILES  FOR  REMOTE 
COMPUTERS  NOT  SOLELY  DEDICATED  TO  THE  OPERATION 

OF  THE  POST-DAM  EXPERT  SYSTEM  (POES). 

••  WARNING!  •* 

USE  OF  THIS  BATCH  JOB  WILL  ELIMINATE  ANY  DEVICES 
DEFINED  IN  YOUR  ORIGINAL  CONFIG.SYS.  TO  ADD 

NEEDED  DEVICES. 

MODIFY  CONFIG. PD. 

:  PROGRAM  VERSION 

1.02  (910215) 

:  DEVELOPED  BY 

APPLIED  RESEARCH  ASSOCIATES.  INC. 

GULF  COAST  DIVISION 

■  MODIFICATION  RECORD  : 

::  VERSION  DATE  RELEASED  PROGRAMMER 

MODIFICATION 

::  I. 01  12/11/90 

JEFF  HOWARD 

*  ORIGINAL  VERSION 

;;  1.02  02/15/91 

JEFF  HOWARD 

*  HEADER  ADDED 

*  SUB-DIRECTORY  CHANGES 

*  AUTOEXEC.BAT  ADDED 

:  lablelOO 

c)s 

c: 

cd\ 

copy  c:\config.sys  c;\pd_systm\conf ig.tiap 
copy  c:\autoexec.bat  c;\pd_aystm\autoexec.tmp 
copy  c ; \pd_systm\conf 1 g . pd~c : \conf 1 g . sys 
copy  c; \pd2systin\autoexec.bat  c:\autoexec.bat 
cIs 

type  c:\pd\pd_sys.inem 
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echo  off 
goto  lablelOO 
rent  CONHENTS 


PROGRAM  TITLE  :  PD  N0SYS.BAT 

PROGRAM  PURPOSE  :  DOS  BATCH  JOB  RESPONSIBLE  FOR  RETURNING  THE 

REMOTE  COMPUTER  TO  ITS  ORIGINAL  (NON-POES) 
CONFIGURATION. 

PROGRAM  VERSION  :  1.02  (910215) 

DEVELOPED  BY  :  APPLIED  RESEARCH  ASSOCIATES,  INC. 

GULF  COAST  DIVISION 

MODIFICATION  RECORD  : 

VERSION  DATE  RELEASED  PROGRAMMER  MODIFICATIONS 

l.Ol  12/11/90  JEFF  HOWARD  «  ORIGINAL  VERSION 

1.02  02/15/91  JEFF  HOWARD  •  HEADER  ADDED 

*  SUB-DIRECTORY  CHANGES 

•  AUTOEXEC.BAT  ADDED 


-.lablelOO 

cIs 

C: 

cdV 

copy  c;\pd_systin\autoexec.tnp  c:\autoexec.bat 
copy  c:\pd_systm\config.tinp  c:\conftg.sys 
del  c:\pd_systin\autoexec.tiiip 
del  c:\pd_aystin\config.tnip 
cIs 

type  c;\pd\pd_sysno.mein 
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echo  off 
cIs 

goto  lablelOO 
rem  COMMENTS 


PRO6RAM  TITLE 

PD  NSTAL.BAT 

PROGRAM  PURPOSE 

DOS  BATCH  JOB  RESPONSIBLE  FOR  CREATING  THE 

SUB-DIRECTORIES  REQUIRED  FOR  THE  POST-DAM 

EXPERT  SYSTEM  (PDES).  ALSO  RESPONSIBLE  FOR 

TRANSFERRING  THE  PDES  FILES  FROM  THE  SYSTEM 

DISKETTE  TO  T'l  REMOTE  COMPUTER'S  HARO  DISK. 

PROGRAM  VERSION 

1.02  (910215) 

DEVELOPED  BY 

APPLIED  RESEARCH  ASSOCIATES,  INC. 

GULF  COAST  DIVISION 

MODIFICATION  RECORD  : 

VERSION  DATE  RELEASED  PROGRAMMER  MODIFICATIONS 

1.01  12/11/90 

JEFF  HOWARD  *  ORIGINAL  VERSION 

1.02  02/15/91 

JEFF  HOWARD  *  HEADER  ADDED 

•  SUB-DIRECTORY  CHANGES 

: lablelOO 

c1$ 

c: 

cd\ 

type  a:\nsta1_l.f1g 
md  c:\postdaffl 

copy  a;\postda!n\*.*  c:\postdam\*.* 
els 

type  a:Vnsta1  2. fig 

PAUSE 

els 

type  a;\n8tal_3.f1g 
md  c:\pd_systm 

copy  a:\pd_sy$tm\*.*  c;\pd_systm\*.* 
els 

type  a:\n5tal_4.fig 
md  c:\postdam\bat 

copy  a:\postdwi\bat\*.*  c:\postdam\bat\*.* 
cIs 

type  a:\nstal_4.fig 
md  c:\postdam\dat 

copy  a:\postdam\dat\*.*  c:\postdam\dat\*.* 
cIs 

type  a:\nsta1_4.flg 
md  c:\postdam\pd 

copy  a:\postdaffl\pd\*.*  c:\postdam\pd\*.* 
md  c:\postdam\dcc 
md  c;\postdam\pd_f lies 
cIs 

type  a:\nstal_5.fig 
cd  postdam 
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device»rcd.sys 

fnes«20 

buffers»20 
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AUTOEXEC. PD  FILE 
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SECHO  OFF 
KEYS  US 

PROMPT  $e[40ni  $e[l:37;41m  $p  $e[l:33:44ni  $g 
PATH-c : \ : c : \postdam ; c : \postdam\bat ; c ; \pd_systm; 
NODE  COM2:9600,N,8,1 
els 
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TION  BETWEEN  POES  POTENTIAL  DAMAGE  MODES 
AND  EXPEDIENT  REPAIR  STRATEGIES 

ELEMENT  CATEGORY  :  INTERIOR  WALL 


POTENTIAL  DAMAGE  MODES  ADDITIONAL  INFORMATION  EXPEDIENT  REPAIR  STRATEGIES 


ON 


UJ 


118 
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TRUTH  TABLE 

CORRELATION  BETWEEN  POES  POTENTIAL  DAMAGE  MODES 
AND  EXPEDIENT  REPAIR  STRATEGIES 

ELEMENT  CATEGORY  :  FLOOR 
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TRUTH  TABLE 

CORRELATION  BETWEEN  POES  POTENTIAL  DAMAGE  MODES 
AND  EXPEDIENT  REPAIR  STRATEGIES 

ELEMENT  CATEGORY  :  DOOR 
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